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

1.составьте программу вычисляющую сторону и площадь квадрата по его примеру. нужно! решить!

👇
Ответ:
Элайза2004
Элайза2004
10.10.2021
Var  p :integer;  a, s :real;
begin
  readln(p);  a:= p/4;  s:= sqr(a);  writeln('Сторона квадрата равна ',a);  writeln('Площадь квадрата равна ',s);
end.
4,7(28 оценок)
Открыть все ответы
Ответ:
maulee502owkszf
maulee502owkszf
10.10.2021

1.

var

  a: integer;

 

begin

  readln(a);

  if ((a mod 10) mod 2 = 0) and ((a mod 100) mod 2 = 0) then writeln('да')

  else writeln('нет');

end.

2.

var

  a, max: integer;

 

begin

  readln(a);

  max : = -1;

  while a < > 0 do

  begin

    if ((a mod 10) mod 2 = 0) and ((a mod 10) mod 2 > max) then max : = (a mod 10) mod 2;

    a : = a div 10;

  end;

  if max < > -1 then writeln(max)

  else writeln('');

end.

3.

var

  mas: array[0..19] of integer;

  sum, i: integer;

begin

  randomize;

  sum : = 0;

  for i : = 0 to 19 do  

  begin

    mas[i] : = -45 + random(1 + 45 + 55);

    if (mas[i] mod 2 = 0) and (mas[i] > 0) then sum += mas[i];

  end;

  writeln(sum);

end.

4,4(35 оценок)
Ответ:
oborinamascha
oborinamascha
10.10.2021

program Vozrasr;



var


 AGE: integer;//Переменная возраста



begin


 writeln('Введите любое число от 1 до 120');


 Readln(AGE); //Ввод возраста


 if (AGE < 1) or (AGE > 120) then


begin


   writeln('ERROR!')


end


 else


 begin


   case AGE of  //для чисел от 11 до 20 создаем отд-ый кейс


     11..20: Writeln('ответ: Мне ', AGE, ' лет');


   Else    //иначе если они не входят в диапазон от [11..20], то выполняется второй кейс


     begin


       case AGE mod 10 of     //делим на 10 и получаем остаток =


         1: Writeln('ответ: Мне ', AGE, ' год');


         2..4: Writeln('ответ: Мне ', AGE, ' года');


         0, 5..9: Writeln('ответ: Мне ', AGE, ' лет');


       end;


     end;


   end;


end;


end.

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