Носителем информации в цифровой камере служат особые карты памяти - точнее, “флэш-памяти”, данные из флэш-памяти не исчезают при отключении питания, они могут быть стерты или записаны только специальным электрическим импульсом.
program raf105;
const
n = 10; //Размер массива
var
a:array[1..n] of integer;
i,pro: integer;
begin
pro:= 1;
writeln('Вводите ',n,' чисел по очереди');
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 2 = 0) or (a[i] mod 5 = 0)
then pro:= pro*a[i];
end;
writeln('Произведение чисел кратных двум или пяти: ',pro);
end.
<h3><u>PascalABC 3.4.2</u></h3>
{
Ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! Ошибка в том, что Вы не форматируете код, и не видите, какой end закрывает какой begin. Уберите их из кода и получите:
program gg;
var
a, b, c, d, e, max: integer;
begin
writeLn('введите пять целых чисел');
read(a, b, c, d, e);
if (a >= b) and (a >= c) and (a >= d) and (a >= e) then
max := a
else
if (b >= a) and (b >= c) and (b >= d) and (b >= e) then
max := b
else
if (c >= b) and (c >= a) and (c >= d) and (c >= e) then
max := c
else
if (d >= b) and (d >= c) and (d >= a) and (d >= e) then
max := a
else
max := e;
writeln('наибольшее число ', max);
end.
----------------------------------------------------------------------------
Форматирование кода:
if (****) then
begin
оператор1;
оператор2;
end
else
begin
оператор1;
оператор2;
end;
}
-----------------------------------------------------------------------------
Включите мозг и напишите нормальный код
program gg;
var
a, b, c, d, e, max: integer;
begin
writeLn('введите пять целых чисел');
read(a, b, c, d, e);
max:=a;
if b > max then max:=b;
if c > max then max:=c;
if d > max then max:=d;
if e > max then max:=e;
Writeln(max);
end.
----or-----
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3;
var (d,e):= readinteger2;
Writeln(max(a,max(b,max(c,max(d,e)))));
end.
INPUT - оператор, позволяющий вводить текстовые и числовые значения перемнных с клавиатуры
<u>Общая формула: INPUT "введи любое число" a</u> - при запросе на экране выдается текст "введи любое число", значение переменной кладется в переменную а
PRINT - оператор, позволяющий выводит текст или значения переменных на экран. Для быстроты набора обычно занимается знаком ?, ПК автоматический заменяет знак ? на PRINT
Общая формула: PRINT "печатай этот текст" - на экране напечатается "печатай этот текст"