Определите значение переменной y после выполнения следующих фрагментов программы: For k:=2 To 6 Do y:= y+k

Знания

Информатика

1 ответ:

НатальяФедорова4 года назад

0 0

Начальное значение переменной y не указано, поэтому будем считать, что оно равно 0. Тогда:

0+2=2
2+3=5
5+4=9
9+5=14
14+6=20

Ответ: у=20

Читайте также

Помогите. Pascal abc Написать программу, которая находит сумму целых чисел ,которые больше 100, меньшее 200, кратны 7 и заканчив

xxdan

Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Какие разновидности информационных моделей вам известны?

Бенджамин Лайнус

Опытные модели Учебные модели
Научно-технические модели

0 0

4 года назад

Соедини стрелками по смыслу.Что моделируем: С помощью чего: Устройство объекта диаграммы Эйлера-ВеннаРазмер объекта чертежаЦвет

Фитиль

Отношения между объектами - диаграммы Эйлера-Венна

Объект-фотографии

Стоимость объекта -числа

Р. об.- эскиз

Ф. р. об. - чертежа

Эл. с. об. -схемы

Цв. об.-рисунка

0 0

4 года назад

Прочитать ещё 2 ответа

Паскаль АВС. Помогите нарисовать робота 6 класс!!! Помогите очень надо!

Лиляяя

Думаю, что похоже ;)

program love;
uses GraphABC;
begin
line(20,60,20,180);
line(20,180,60,180);
line(60,180,120,100);
line(220,100,300,180);
line(300,180,380,260);
line(120,320,120,420);
line(120,420,100,420);
line(220,340,220,420);
line(220,420,260,420);
rectangle(60,180,300,320);
rectangle(120,20,220,100);
end.

0 0

4 года назад

Помогите пожалуйста угодать слова. к□□р□□ва, р□□у, пр□□□□□а, д□□□ве, р□□□а□□.

Вера593

Корова, рагу, проволка, дереве, а вот последнее затрудняюсь. может романы

0 0

4 года назад