Нажмите (windows+R) и ведите программу и нажмите выполнить и всё
var a,b,x: real;
begin
writeln('Введите коэффициенты линейного уравнения ax=b');
readln(a,b);
if (a=0) and (b=0) then writeln('Решений бесконечно много')
else
if (a=0) and (b<>0) then writeln('Решений нет')
else
if a<>0 then
begin
x:=b/a;
writeln('Корень уравнения: ',x)
end
end.
40*60=2400
2400*1=2400 байт на страницу
4 Гб=4096 Мб=4194304 Кб=4294967296 байт
4294967296:2400 примерно = 1789570 страниц
1789570:100=17895.7 см
600 мб переводим в килобайты, это = 614400кб.
614400 делим на 500 кб = 1228 (таким образом узнали количество фотографий в альбоме)
Раз на одну фотку уходит 6 сек, значит на просмотр 1228 фотографий будет затрачено 1228*6=7372 секунды.
Переводим 7372 сек в минуты 7372/60= 122 мин.
122 мин = 2 часа 2 мин
Program n1;
var a,sum: integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=4) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Носителем информации в цифровой камере служат особые карты памяти - точнее, “флэш-памяти”, данные из флэш-памяти не исчезают при отключении питания, они могут быть стерты или записаны только специальным электрическим импульсом.