Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
Дано:
K = 800*600 = 480 000
I = 24 бит (т.к. в RGB на каждую составляющую цветовой модели отводится 8 бит, а составляющих 3: красный цвет, зеленый и синий. Т.е. 3*8 = 24)
Найти:
V - ?
Решение:
V = K*I
V = 480 000 * 24 бит = 11 520 000 бит / 8 = 1 440 000 байт / 1024 = 1 406.25 Кбайт
Ответ: 1406.25 Кбайт
Если заюзать относительные пути, то должно быть - <span>%USERPROFILE%\Desktop
</span>
<em>PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите число:');
Writeln('Его квадрат ',x*x,', куб ',x*x*x)
end.
<u>Пример</u>
Введите число: -35.432
Его квадрат 1255.426624, куб -44482.276141568