Регистрация
veronika56454
01.06.2023 17:14
Информатика
Есть ответ 👍

с заданиями по информатике 8 класс. Паскаль. Очень нужно

246
458
Посмотреть ответы 2

Ответы на вопрос:

Killerman68
Killerman68
4,6(32 оценок)

Задача 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.

angel150301
angel150301
4,7(53 оценок)
Var     a,b: integer;     s: real; begin s: =0; write('a = '); readln(a); write('b = '); readln(b); for b: = a to b do       s: =s+b; writeln('s = ',s); end. var     a,k: integer; begin write('a = '); readln(a); k: =0; while a > 0 do     begin     if a mod 10 = 3 then k: =1;     a: =a div 10     end; if k = 1 then write('есть') else write('нет') end. var     a,b: real;     k: integer; begin write('a = '); readln(a); write('b = '); readln(b); while a < = b do     begin     k: =k+1;     a: =a*1.03;     end; writeln(k); end.

Популярно: Информатика