1.44 *1024 = 1474.56 Кб * 1024 = 1509949,44 байт
1509949,44 байт - 80% = 301989,88 байт
301989,88 байт можно ещё записать
Program znanija;
const n = 5;
var
a:array[1..n] of integer;
premax, premaxi, maxi, max, i, b:integer;
begin
max := -1000;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if b > max then
begin
premax := max;
premaxi := maxi;
max := b;
maxi := i;
end;
end;
writeln('Максимальный элемент №1: ', max, ',его номер ', maxi);
writeln('Максимальный элемент №2: ', premax, ',его номер ', premaxi);
end.
1 - D
2- C
3 - B
4 - A
Если это письмо/файлы получены от неизвестного источника
Pascal ABC
Первый вариант с вводом числа с клавы, второй с циклом For
1)
Var A:integer;
S:string;
Begin
Write('Сумма сдачи = ');Read(A);
if (A>10)and(A<21) then S:= ' копеек'
else
Case A mod 10 of
1:S:=' копейка';
2..4:S:=' копейки';
0,5..9:S:=' копеек';
End;
WriteLn(A,S);
End.
2)
Var
A:integer;
S:string;
Begin
For A:= 1 to 100 do
Begin
if (A>10)and(A<21) then S:= ' копеек'
else
Case A mod 10 of
1:S:=' копейка';
2..4:S:=' копейки';
0,5..9:S:=' копеек';
End;
WriteLn(A,S)
End
End.
Если а>=х то хватит.
а если не хватит, то нужно добавить х-а рублей