СОСТАВЬТЕ ПЛИЗ БЫСТРО!15БАЛЛОВ1)Составьте программу вычесления суммы s=1+2^2+3^3+4^4+...+n^n.2)Даны годовые оценки учеников класса по физике.Верно ли ,что количесвто пятерок больше,чем двоек?3)Известна высота двадцати зданий....
СОСТАВЬТЕ ПЛИЗ БЫСТРО!15БАЛЛОВ
1)Составьте программу вычесления суммы s=1+2^2+3^3+4^4+...+n^n.
2)Даны годовые оценки учеников класса по физике.Верно ли ,что количесвто пятерок больше,чем двоек?
3)Известна высота двадцати зданий.Найти минимальную высоту.
4Известна высота Двадцати зданий.Найти два максимальный значения
Гость
Ответ(ы) на вопрос:
Гостьvar p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
end.
Не нашли ответ?
Похожие вопросы