Начала программирования

Введение в программирование вообще и язык Pascal (Паскаль) в частности. Рассматриваются основы программирования и базовый синтаксис Pascal, в том числе типы данных, условия и циклы.

Комментарии

Ответ на от Гость

Uses crt;
Var
a,b,v,t,u,i : Integer;
begin
 Writeln ('Введите первую пару чисел:');
 Write ('Первое число:');
 Readln (a);
 Write ('Второе число:');
 Readln (b);
 v:=a+b;
 Writeln ('Введите вторую пару чисел:');
 Write ('Первое число:');
 Readln (t);
 Write ('Второе число:');
 Readln (u);
 i:=t+u;
 if (v=i) then Writeln ('Они равны.');
 if (v>i) then Writeln ('Сумма первой пары чисел больше суммы второй.');
 if (v<i) then Writeln ('Сумма второй пары чисел больше суммы второй.');
end.

Написать программу, позволяющую вводить с клавиатуры символы до тех пор, пока не будет введен символ $. Найти количество цифр среди введённых символов. Нельзя использовать тип массивы и строки.

Ответ на от Гость

program project1;
var a:char;
      s:integer;
begin
repeat
writeln('Введите символ');
readln(a);
s:=0;
case a of:
'1','2','3','4','5','6','7','8','9','0': s:=s+1;
end;
until a='$';
writeln('Введено ',s, 'цифр.');
readln;
end.