в классе, в кафе, в играх,
Это решение при задании вручную этих чисел:
Program sadadasf;
var i,k,l: integer;
begin
Writeln('Введите первое целое двухзначное число:');
readln(i);
Writeln('Введите второе целое двухзначное число:');
readln(k);
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.
<span>
Это решение при задании чисел в самой программе:
Program sadadasf;
var i,k,l: integer;
begin
i:=5;
k:=3;
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
</span>Writeln('Первое число:', i);
Writeln('Второе число:', k);<span>
end.</span>
Program Task;
Var a, b: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Среднее арифметическое: ', ((a + b) / 2):5:2);
ReadLn;
End.
1) Недостающие фрагменты:
var a, b, p
Readln(a);
Readln(b);
2) Блок-схема:
(начало)
|
/ a, b /
|
[ y = 3*a^3 - 2*b^2 + 5*a*b ]
|
/ y /
|
(конец)
Программа:
П1 <-> П0 3 <-> x^y 3 * ИП1 x^2 2 * - ИП0 ИП1 5 * * + С/П
var a: array [1...n] of integer;
j, k, max: integer:
begin
for j:=1 to n do
readln(a[j]);
sum:=0
For j:=1 to n do
if a[j]mod=0 then sum:=sum*a[j]
Writeln(sum);
end.