М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Write(4); for i:=3 downto 2 do write(2*i);

👇
Ответ:
tarasbulba204
tarasbulba204
30.05.2020

2

Объяснение:

4,8(45 оценок)
Открыть все ответы
Ответ:
DENZYSUPER
DENZYSUPER
30.05.2020
Не очень корректно объяснили, но если правильно вас понял:
 Program G;
 Var n, z, m, p: integer;
 Begin 
  z:=0;
  p:=0; 
 m:=0; 
 Writeln('Введите число n. Число 9999 завершает цикл.'); 
 Readln(n); 
 While n<>9999 do 
  Begin   
   If n=0 then inc(z);   
    else if n>0 then inc(p);   
    else inc(m);   
   Writeln('Введите число');   
   Readln(n); 
  End; 
 Writeln('Было введено ', z, ' нулей.'); 
 Writeln('Было введено ', p, ' положительных чисел.'); 
 Writeln('Было введено ', m, ' отрицательных чисел.');  
 Readln;
 End.
4,5(13 оценок)
Ответ:
am06071990
am06071990
30.05.2020

Первая

var n,x:integer;

begin

 readln(n);

 while n <> 0 do begin

  x:=x + n mod 10;

  n:=n div 10;

 end;

 if(x mod 2 = 0) then

   writeln('true')

 else

   writeln('false');

end.

Вторая

var x,z,s:integer;

begin

 readln(x);

 if (x > 99) and (x < 1000) then begin

   s:=x;

   while s<>0 do begin

     z:=z+s mod 10;

     s:=s div 10;

   end;

   if(x*x) = (z*z*z) then

     writeln('true')

   else

     writeln('false');

 end

 else

   writeln('Число должно быть 3-ех значным!');

end.

Третья

Var a,b,c:Real;  

Begin  

 Writeln('Введите a');

 Readln(a);

 Writeln('Введите b');

 Readln(b);

 Writeln('Введите c');

 Readln(c);

 if (a=b) or (a=c) or (b=c) then

   writeln ('true')

 else

   writeln ('false);

end.

4,6(91 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ