В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Robincona
Robincona
03.08.2020 11:16 •  Информатика

а) Сформулируйте задачу оптимального планирования для школьного кондитерского цеха, в котором выпускается три вида продукции: пирожки, пирожные и коржики.

Показать ответ
Ответ:
lisa1003
lisa1003
15.06.2021 09:02
1.                                                            

program raf105;

var  

 i,n,a: integer;

begin

 write('Введите число: ');

 readln(a);

 write('Введите количество повторений: ');

 readln(n);

 for i:=1 to n do

   writeln(a);

end.

2.                                                            

program raf105;

var  

 sum,i: integer;

begin

 for i:=10 to 99 do

   if i mod 2 = 0

     then sum:= sum+i;

 writeln('Сумма всех чётных двузначных чисел: ',sum);

end.

3.                                                            

program raf105;

var  

 x,y: real;

begin

x:= -2;

 while x <= 2 do

 begin

   y:= 2*x+3;

   writeln(x:4:1,' ',y:4:1);

   x:= x+0.2

 end;

end.

                                                              PascalABC 3.4.2
0,0(0 оценок)
Ответ:
bloxinilyxa
bloxinilyxa
18.12.2022 14:49

Вводится натуральное число N (N ≤ 1000000). Затем вводятся N целых чисел, не превосходящих по абсолютному значению 2³¹. Найти количество чисел, которые заканчиваются на 5. Если такие числа есть, вывести максимальное из них.

Чтобы определить последнюю цифру числа, воспользуемся оператором взятия остатка от деления. Чтобы можно было смотреть последнюю цифру у отрицательных чисел, будем брать остаток по модулю.


Код (Pascal)

var

 i, n, k, max: longint;

 a: array[1..1000000] of longint;


begin

 read(n);

 max := -32767;

 k := 0;

 for i := 1 to n do

 begin

   read(a[i]);

   if abs(a[i] mod 10) = 5 then

   begin

     k := k + 1;

     if a[i] > max then max := a[i];

   end;

 end;

 write(k, ' ');

 if k <> 0 then write(max);

 writeln;

end.

По условию задачи можно обойтись и без хранения массива. Такой код вложен в решение.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота