Ввод: x ^ y С/П.
<-> П0 1 + + П1 ИП0 / 1/x П2
ИП1 С/П ИП2 С/П ИП0 С/П
Только хорек( ест и то и другое)
Var
p, q: real;
begin
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(p);
write('Вес яблок (кг) -> ');
readln(q);
writeln('Стоимость покупки: ', (p * q):6:2, ' руб.');
end.
Вот на Pascal:
uses graphabc;
var a,b,c:longint;
begin
write('Введите a,b и c треугольника');
readln(a,b,c);
write('Периметр - ',a+b+c);
write('Площадь - ',a*b*c);
write('Code by Grisha Sheldunov');
end.
Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>