Регистрация
марина1929
26.02.2021 22:17
Информатика
Есть ответ 👍

Привет всем с информатикой с тестом:
пример как нужно сделать:
дано: A=10 B=18
подставим данные
IF 10>18 THEN S:= A ELSE S:=B; (если 10>18 то S= 10 иначе S=18)
WRITE (S); ответ 18

ЧТО НУЖНО РЕШИТЬ:

1.Дано: Х=4 IF X<=10 THEN Y:=210 ELSE Y:=X*X*X ;WRITE (Y); *
2.Дано: А=5, В=78 IF A>B THEN S:= A ELSE S:=B;WRITE (S); *
3.Дано: Х=-7 IF X<=10 THEN Y:=210 ELSE Y:=X*X*X ;WRITE (Y); *
4.Дано: А=12, В=12 IF A>B THEN S:= A ELSE S:=B;WRITE (S); *
5.Дано: Х=10 IF X<=10 THEN Y:=210 ELSE Y:=X*X*X ;WRITE (Y); *
6.Дано: А=14, В=-11 IF A>B THEN S:= A ELSE S:=B;WRITE (S); *
7.Дано: Х=-23 IF X<=10 THEN Y:=210 ELSE Y:=X*X*X ;WRITE (Y); *

193
314
Посмотреть ответы 1

Ответы на вопрос:

nikols7
nikols7
4,6(48 оценок)

var a,c: integer;

   summ: integer;

begin

 summ:=0;

 println('Введите число a');

 readln(a);

 println('Введите число c');

 readln(c);

 while (a<=c) do begin

   if (a mod 2=0) then

     summ:=summ+a;

     a:=a+1;

 end;

 a:=a+1;

 println('Сумма четных чисел от ', a, ' до ', c, ' = ');

 print(summ);

end.

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