Войти Регистрация Спроси ai-bota

1) var s; k: integer; begin s: =4; for k: =1 to 3 do s: =s+2k; write (s); end 2) var s; k; i: integer; begin s: =3; i: =3s; for k: =3 to 9 do s: =s+i; write (s); end

Ответ:

margarita4278

10.08.2020 20:50

//1)
var
s, k: integer;

begin
s := 4;
for k := 1 to 3 do
s := s + 2 * k;
write(s);// s = 16
end.
//2
var
s, k, I: integer;

begin
s := 3;
I := 3 * s;
for k := 3 to 9 do
s := s + I;
write(s);// s = 66
end.

0,0(0 оценок)

Ответ:

StEInN2

10.08.2020 20:50

1)16
2)ты точно правильно переписал?

0,0(0 оценок)

Популярные вопросы: Информатика

pollypron

31.01.2022 15:58

зделать номер 2 Просто понимаете ты рисуешь а потом вспоминаешь что у тебя есть ещё информатика >...

Witch23

20.05.2020 21:21

Program mas_1; var n, i: integer; a: array[1..10] of integer; begin randomize; for i:=1 to 10 do a[i]:=random(100); for i:=1 to 10 do write (a[i], ); i:=0; repeat i:=i+1;...

Татьяна201712

10.04.2023 00:52

Через программу Python Вычислите Сколько дней в году (нужен скриншот результата)...

omg15

07.04.2022 05:52

Что ты с является бой панель инструментов...

София6451

18.12.2022 03:29

3. Исполнитель Мульт работает с двумя командами, которым присвоены номера: 1) Возвести в квадрат, 2) вычесть 2. Выполняя первую из них, Мульт возводит число на экране...

elina184

04.08.2020 19:55

Напишите перевод программы Program mas_3 ; var s, i: integer; a: array[1..10] of integer; begin randomize; for i:=1 to 10 do a[i]:=random(100); for i:=1 to 10 do write...

Енотик83

04.08.2020 19:55

Построить элементы массива из 5 случайных чисел в интервале [-100,100]. Найдите сумму всех отрицательных элементов массива. Если в массиве нет отрицательных элементов,...

AbsoJl

09.01.2022 18:57

Үйде орындайық Интернеттен тіршілік иесіне қауіп туғызатын табиғатқұбылыстары туралы ақпаратты және суреттерді жүкте,Олардан сақтану жолдарын қысқаша нұсқаулық етіп...

karinashakhbaz

03.02.2021 18:53

1. Найди ошибки в представленных ниже кодах программы.Код 1 Код 2 Код 3 a= int input() a = 8: b=118 a = int (inputO) b= int intuto c:= a + b k= 3. (a + b) — 4ab t=...

Bobskromnaysh12

03.09.2022 14:07

Где моно найти команду ПРОВЕРНУТЬ в прг Paint...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку