Если принудительно прекращена работа даной программы в следствии ошибки/завершения её процесса пользователем/системным администратором
1)
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
writeln('D=',b*b-4*a*c);
end.
2)
Program n1;
begin
writeln('площадь: ',5.8*5.8*pi-3.8*3.8*pi);
end.
Ответ:
var i: integer;
begin
for i:=10 to 99 do
if (i mod 7 = 0) and (616 mod i = 0) then writeln (i)
end.
const
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>
Дано:
размер=25*30 см
разр. способн.=300*300 dpi
I=3 байт=24 бит
Найти:
V - ?
Решение:
V=K*I
1 дюйм = 2.54 см
25*2.54=9.8 дюймов
30*2.54=11.8 дюймов
K=9.8*11.8*300*300=10 407 600
V=10 407 600*24=249 782 400 бит : 8=31 222 800 байт : 1024≈30 491 Кб : 1024≈29.8 Мб
Ответ: 29.8 Мб