Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.
Потребительский кредит - кредит, предоставляемый непосредственно гражданам или домашним хозяйствам для приобретения предметов потребления
var
s,i: integer; {s,i - цел}
begin
s := 0;
for i := 1 to 5 do
s := s + i;
write(s)
end.
<em>Решение:</em>
<em>1) 800*600*5=2400000</em>
<em>2) 2400000:8:1024=293 Кбайт</em>
<em>Ответ: 293 К байт</em>
Var a,b:real;
begin;
readln(a);
readln(b);
writeln(a+b);
writeln(a-b);
writeln(a*b);
end.