а) Сформулируйте задачу оптимального планирования для школьного кондитерского цеха, в котором выпускается три вида продукции: пирожки, пирожные и коржики.
Вводится натуральное число 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.
По условию задачи можно обойтись и без хранения массива. Такой код вложен в решение.
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Вводится натуральное число 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.
По условию задачи можно обойтись и без хранения массива. Такой код вложен в решение.