1.
var a: real;
x,y: integer;
begin
readln(x,a,y);
writeln('1 kg konfet stoit ', a/x:1:2);
writeln(y,' kg konfet stoyat ', a/x*y:1:2);
readln;
end.
2.
var a,s,p: integer;
begin
readln(a);
s:=a mod 10 + a div 10;
p:=(a mod 10)*(a div 10);
writeln(s);
writeln(p);
readln;
end.
3.
var a,b: integer;
begin
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln(b);
readln;
end.
Это если без циклов.
Var x1, y1, x2, y2, x3, y3, x4, y4: real;
begin
read(x1, y1, x2, y2, x3, y3, x4, y4);
write(abs((x1 - x2) * (y3 - y2) - (y1 - y2) * (x3 - x2)))
<span>end.</span>
297Кбайт = 297 * 1024 байт = 304128 байт
128000 бит = 16000 байт
Ответ: 304128/16000 секунд = 19.008 секунд
Раскрываем по степени вложенности.
(x<0) or (y<0) = true or false = true
true and (z<-2) = true and false = false
not(false) = true
true and D = true and true = true
Ответ: true.
512(МБ) Мегабайтов = 0.5 (ГБ) Гигабайтов