Помогите пожалуйста информатика ПАСКАЛЬ !!!!!
Помогите пожалуйста информатика ПАСКАЛЬ !!!!!
Задать свой вопрос1.
program raf105;
var m,r,h,p,a,sari:integer;
begin
write('Введите баллы по математике: ');
readln(m);
write('Введите баллы по русскому языку: ');
readln(r);
write('Введите баллы по химии: ');
readln(h);
write('Введите баллы по физике: ');
readln(p);
write('Введите баллы по английскому языку: ');
readln(a);
sari:= round((m+r+h+p+a)/5);
writeln('Средний балл: ',sari);
end.
2.
program raf105;
var abcd,b:integer;
begin
write('Введите четырёхзначное число: ');
readln(abcd);
b:= (abcd div 100) mod 10;
writeln('2-ая цифра числа слева: ', b);
end.
Язык PascalABC
-
Вопросы ответы
Статьи
Информатика
Статьи
Литература.
Разные вопросы.
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.
Разные вопросы.