Var p, s, a, b : real;
begin
writeln ('Введите - А');
readln (a);
writeln ('Введите - Б');
readln (b);
p:=Sqrt(a*a+b*b)+a+b;
s:=a*b/2;
writeln ('Периметр - '+p);
writeln ('Площадь - '+s);
end.
Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
Вбей в поисковик таблица истинности онлайн, с подробным решением выдаст
Пппппввллнлнн вот такие буквы
Const
n = 8;
nmax = 32767;
var
a: array[1..n] of integer;
i, t, min: integer;
begin
min := nmax;
for i := 1 to n do
begin
Read(t); a[i] := t;
if (t > 0) and (t mod 2 = 0) then
if min > t then min := t
end;
if min <> nmax then
Writeln('Минимальный положительный четный элемент равен ', min)
else
Writeln('В массиве нет четных положительных элементов')
end.
<u>Тестовое решение:</u>
353 638 -1000 -452 320 -18 19 0
Минимальный положительный четный элемент равен 320