var k,a: integer;
begin
write('количество k=');read(k);
for var n:=k downto 1 do
begin
a:=2*n;write(a, ' ');
end;
end.
Ячейки, в которых написано "истина" или "ложь" можно потом скрыть. Я их оставил на виду, чтобы легче было понять работу программы
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c>100 then writeln('Сумма больше 100=',a+b+c) else writeln('Сумма=',a+b+c);
end.
Пример ввода:
200
50
8
Пример вывода:
Сумма больше 100=258
(Считаем что 1 Гбайт = 2^30 = 1 073 741 824 байт)
Объем DVD M = 4.7*1024*1024 Кб = 4 928 307.2 Кбайт
Всего фото на диске N = M / 500Кбайт = 4 928 307.2 Кбайт / 500Кбайт = 9 856.6144 ~ 9 856 (округлили до целых)
Время просмотра t = N * 5c = 49 280 c = 13.6(8) часов
// PascalABC.NET 3.3
begin
var a:=ReadArrInteger('Введите год, месяц, число:',3);
Write('S=',a.Sum);
end.
Пример:
Введите год, месяц, число: 2018 3 14
S=2035