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

Напишите программу при оператора random, a: array [1..10] of integer; для : определить сумму цифр трехзначного числа кратных 4 на языке паскаль!

👇
Ответ:
plkg
plkg
01.04.2020

begin

var(v,r):=ReadInteger2;

if V<=R-100 then Println('Пройдет')

else Println('Не пройдет')

end.

4,6(97 оценок)
Открыть все ответы
Ответ:
foma89
foma89
01.04.2020
Var a: array of integer;
n, sum, max: integer;
 
begin
   sum:=0;
   write('Введите натуральное число n: ');
   readln(n);
   a := new integer[n];
 
  write('Введите действительные числа: ');
  for var i:=0 to a.Length-1 do
    read(a[i] );
   
  write('Сумма равна: ');
  for var i:=0 to a.Length-1 do
    sum:=sum+a[i];
  writeln(sum);  
  
  write('Максимальный элемент равен: ');
  max := a[0];
  for var i:=0 to a.Length-1 do
    if a[i]>max then 
    begin
      max := a[i];
    end;
  writeln(max); 
  
  write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
  sum:=sum+max;
  write(sum); 
 
end.
4,4(18 оценок)
Ответ:
Zizosia
Zizosia
01.04.2020
А - кувшин 3 литра
Б - кувшин 5 литров
1)наливаешь воду в кувшин А (в А - 3 литра)
2) переливаешь воду из А в Б (в А - 0 литров, в Б - 3 литра)
3)наливаешь воду в А ( в А - 3 литра, в Б - 3 литра)
4) переливаешь воду из А в Б (в А - 1 литр, в Б - 5 литров)
5)выливаешь воду из Б (в А - 1 литр, в Б - 0 литров)
6) переливаешь воду из А в Б ( в А - 0 литров, в Б - 1 литр)
7) наливаешь воду в А( в А - 3 литра, в Б - 1 литр)
8) переливаешь воду  из А в Б ( в А - 0 литров, в Б - 4 литра)
9) наливаешь воду А - готово (в А - 3 литра, в Б - 4 литра)
п.с. первое, что пришло в голову, наверное, можно как-то еще
4,4(29 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ