В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Bata2003
Bata2003
24.08.2021 07:01 •  Информатика

Напишите программы pascal, контрольная будет ,боюсь завалить 30

Показать ответ
Ответ:
polisavostina
polisavostina
30.09.2020 16:52

1.

program ll1;

var i, a: integer;

begin

i:=2;

a:=2;

writeln(a);

while i<=10 do

begin

a:=a*a;

i:=i+1;

writeln(a);

end;

end.

2.

program ll1;

var a, i, sum: integer;

ssum: real;

begin

i:=1;

sum:=0;

while i<=10 do

begin

i:=i+1;

readln(a);

sum:=sum+a;

end;

ssum:=sum/i;

if ssum<1000 then

writeln('Низкая цена');

end.

3.

program ll1;

var A: array[1..7] of integer;

i, pr: integer;

begin

Randomize;

for i:=1 to 7 do

begin

A[i]:=random(10)-5;

write(A[i], ' ');

if A[i] = 0 then A[i]:=1;

pr:=pr * A[i];

end;

writeln(pr);

end.

4.

program ll1;

begin

writeln(1*2*3*4*5*6 + 3*3*3*3*3*3);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота