Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.
program U17Z2;
var s: string;
i,code,v,kol: integer;
begin
writeln('vvedite stroku');
readln(s);
kol:=0;
for i:=1 to length(s) do
begin
val(s[i],v,code);
if (v>=5) then
kol:=kol+1;
end;
writeln('kolichestvo cifr >=5 : ',kol);
readln();
end.
Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.
program U17Z1;
var s: string;
i,code: integer;
begin
writeln('vvedite stroku');
readln(s);
val(s,i,code);
if (code<>0) then
writeln('oshibka v poz: ',code)
else
writeln('chislo = ',i);
readln();
end.
Задана последовательность символов, имеющая следующий вид: p1q1p2q2p3...qn–1pn , где pi — цифра, а qi — знак арифметического действия из набора {+, –, *}. Вычислите значение выражения, предполагая, что действия выполняются согласно правилам арифметики. Входные данные: На вход программе подается строка указанного вида, состоящая не более чем из 9 чисел, разделенных символами арифметических операций. Выходные данные: Выведите значение арифметического выражения.
Примеры:
Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно), например:
для строки:
Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:
a1 # a2 # ..... # aN
Где:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)