Задача 1:
var a,b: real;
var c: char;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите нужную операцию (+,-,*,/): ');
readln(c);
if (c='+') then writeln('Результат: ',a+b)
else if (c='-') then writeln('Результат: ',a-b)
else if (c='*') then writeln('Результат: ',a*b)
else if (c='/') then writeln('Результат: ',a/b);
end.
Задача 2:
var a: integer;
begin
write('Введите количество кроликов: ');
readln(a);
write('Количество морковок: ',3*100+a*2);
end.
Задача 3:
var a: integer;
begin
write('Введите число: ');
readln(a);
write('Последняя цифра числа: ',a mod 10);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var p:=0;
for var i:=1 to n do begin
var (k,s):=(i,0);
while k>0 do begin
s+=k mod 10;
k:=k div 10
end;
if i mod s=0 then p+=1
end;
Writeln(p)
end.