Задача 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.
1 постановка задачи
исходные данные Х,У
результат: текст1 или текст2 или текст3 или текст4 или текст5 или текст6 или текст7
2.Формализация
если (x=0) and (y=0) то вывод текст1 ('это начало координат');
если (y=0) and (x<>0 ) то вывод текст2 ('точка лежит на оси OX');
если (y<>0) and (x=0 ) то вывод текст3 ('точка лежит на оси OY');
если (y>0) and (x>0 ) то вывод текст4 ('точка в 1 четверти');
если (y>0) and (x<0 ) то вывод текст5 ('точка во 2 четверти');
если (y<0) and (x<0 ) то вывод текст6 ('точка в 3 четверти');
если (y<0) and (x>0 ) то вывод текст7 ('точка в 4 четверти')сли
var
x,y: integer;
begin
writeln ('ââåäè êîîðäèíàòû òî÷êè x,y');
read (x,y);
if (x=0) and (y=0) then writeln (''это начало координат');
if (y=0) and (x<>0 ) then writeln ('точка лежит на оси OX');
if (y<>0) and (x=0 ) then writeln ('точка лежит на оси OY');
if (y>0) and (x>0 ) then writeln ('точка в 1 четверти');
if (y>0) and (x<0 ) then writeln ('точка во 2 четверти');
if (y<0) and (x<0 ) then writeln ('точка в 3 четверти');
if (y<0) and (x>0 ) then writeln ('точка в 4 четверти')
end.