Помогите решить пожалуйста дам 30 баллов Информатика 7 класс

+442 голосов
4.8m просмотров

Помогите решить пожалуйста дам 30 баллов Информатика 7 класс


image

Информатика (19 баллов) | 4.8m просмотров
Дан 1 ответ
+139 голосов

1.

program P1;

var

a,b,y:real;

writeln( 'Введите a=');

readln(a);

writeln('Введите b=');

readln(b);

y=(sqr(a)+a*b)/a*c;

writeln('Результат решения=',y);

end.

2.

program P2;

var

 N: byte;

begin

 write('Введите число = ');

 readln(N);

 writeln;

 writeln(' Последняя цифра: ', N mod 10);

 readln

end.

(271 баллов)