Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Лучший ответ
дима мищенко
(356)
7 лет назад
Program p23;
const
n=5;
var
sr:double;
k,l,b,c,d:double;
begin
writeln('Введите первое число');
readln(k);
writeln('Введите второе число');
readln(l);
writeln('Введите трете число');
readln(b);
writeln('Введите четвёртое число');
readln(c);
writeln('Введите пятое число');
readln(d);
sr:=((k+b+l+c+d)/n);
writeln('Среднее значение равно',sr);
end.
const
n=5;
var
sr:double;
k,l,b,c,d:double;
begin
writeln('Введите первое число');
readln(k);
writeln('Введите второе число');
readln(l);
writeln('Введите трете число');
readln(b);
writeln('Введите четвёртое число');
readln(c);
writeln('Введите пятое число');
readln(d);
sr:=((k+b+l+c+d)/n);
writeln('Среднее значение равно',sr);
end.
serheo2507Ученик (241)
7 лет назад
var
a,b,c,d,e, sa:real;
begin
Write('->');
readln(a);
Write('->');
readln(b);
Write('->');
readln(c);
Write('->');
readln(d);
Write('->');
readln(e);
sa:=(a+b+c+d+e)/5;
Writeln('среднее арифм. значение равно ', sa);
readln;
end.
a,b,c,d,e, sa:real;
begin
Write('->');
readln(a);
Write('->');
readln(b);
Write('->');
readln(c);
Write('->');
readln(d);
Write('->');
readln(e);
sa:=(a+b+c+d+e)/5;
Writeln('среднее арифм. значение равно ', sa);
readln;
end.
var c,a:real; i:integer;
begin
for i:=1 to 5 do
begin
readln(a);
c:=c+a;
end;
writeln('среднее арифм. значение равно ',c/5);
readln;
end.
дима мищенкоЗнаток (356)
7 лет назад
program p23;
uses graphabc;
var
s: string;
n, i, x: integer;
k, l: integer;
begin
writeln('Введите количество учеников, которых вы хотите записать в список');
readln(n);
writeln(n);
for i := 1 to n do
begin
writeln('Введите имя и фамилию ученика');
readln(s);
writeln('Введите оценку ученика');
readln(x);
writeln(s, ' ', x);
if x = 5 then
begin
k := k + 1;
end;
for l := 1 to k + 1 do
begin
writeln('Отличники!!! ');
writeln(s, ' ', x);
end;
end;
end.
uses graphabc;
var
s: string;
n, i, x: integer;
k, l: integer;
begin
writeln('Введите количество учеников, которых вы хотите записать в список');
readln(n);
writeln(n);
for i := 1 to n do
begin
writeln('Введите имя и фамилию ученика');
readln(s);
writeln('Введите оценку ученика');
readln(x);
writeln(s, ' ', x);
if x = 5 then
begin
k := k + 1;
end;
for l := 1 to k + 1 do
begin
writeln('Отличники!!! ');
writeln(s, ' ', x);
end;
end;
end.
дима мищенко
Знаток
(356)
Program p23;
const
n=10;
var
a:array[1..n]of integer;
max:integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(1,10);
write(a[i]:4);
END;
writeln();
writeln();
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
write(a[i]:4);
writeln();
writeln();
max:=a[i+1];
if max>a[i] then
begin
max:=a[i+1];
end
else
begin
max:=a[i];
writeln(max);
end;
end;
end;
end.
Остальные ответы
Тимур Тихомиров
(145)
7 лет назад
Подкиньте идею или тему для снятия социальной рекламы. Или просто скажите, что сейчас актуально по этой теме!?
serheo2507Ученик (241)
7 лет назад
Что нибудь с людьми без определенного места жительства связанное
Тимур Тихомиров
Ученик
(145)
Спасибо за ответ
Максим
(191)
7 лет назад
пиши в скайп попробую помочь хотя уже лет 15 не писал на чистом паскале. щас чисто ноду юзаю и пхп - рулетки делаю. пример: csgo-jackpot.net
Tamagiri
(409)
7 лет назад
Program p23;
const
n=5;
var
sr:double;
k,l,b,c,d:double;
begin
writeln('Введите первое число');
readln(k);
writeln('Введите второе число');
readln(l);
writeln('Введите трете число');
readln(b);
writeln('Введите четвёртое число');
readln(c);
writeln('Введите пятое число');
readln(d);
sr:=((k+b+l+c+d)/n);
writeln('Среднее значение равно',sr);
end.
const
n=5;
var
sr:double;
k,l,b,c,d:double;
begin
writeln('Введите первое число');
readln(k);
writeln('Введите второе число');
readln(l);
writeln('Введите трете число');
readln(b);
writeln('Введите четвёртое число');
readln(c);
writeln('Введите пятое число');
readln(d);
sr:=((k+b+l+c+d)/n);
writeln('Среднее значение равно',sr);
end.
Похожие вопросы