===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
код 0011 - 4 бита или 4/8 = 0.5 байта.
Изображение содержит 800х600 = 480000 точек и если для кждой нужно 0.5 байта, то для изображения потребуется 480000х0.5=240000 байт.
750 Кбайт памяти - это 750х1024 = 768000 байт.
768000 / 240000 = 3.2. Так что всего 3 изображения.
Оператор условия.
Если (действие, утверждение), то.... иначе....
Var s:string;
begin;
writeln('Ваш пол?');
readl(s);
if (s='мужской') then
writeln('Вы-защитник отечества');
if (s='женский') then
writeln('Вам не повезло - женцины не служат в армии');
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -50, 50);
a.Println;
var b := ArrRandom(10, -50, 50);
b.Println;
var c := a.Zip(b, (p, q)-> p * q).ToArray;
c.Println
end.