Program massiv;
const N=10;
var i:integer;
mas:array[1..N]of integer;
begin
randomize;
for i:=1 to N do
begin
mas[i]:=random(100);
write(mas[i],' ');
end;
writeln(' ');
for i:=1 to N do
begin
if i mod 3=0 then
write(mas[i],' ');
end;
end.
CLS
a:
INPUT "введи основание"; a
IF a<=0 THEN PRINT "не может быть": GOTO a
b:
INPUT "введи высоту"; h
IF h<=0 THEN PRINT "не может быть": GOTO a
S=a*h/2
PRINT "площадь треугольника равна"; S
END
Var
a : integer;
Begin
Readln(a);
Writeln(a div 10, ' ', a mod 10);
end.
Program antonim;
var s1,s2:string;
begin
s1:='горячий';{Наше слово}
write ('Введите антоним (с маленькой буквы) к слову ',s1,': ');
readln (s2);{Ввод антонима}
if (s2<>'холодный') or (s2<>'прохладный') then writeln ('Таких слов нету.'); {Проверка условия}
end.
512 граммов
1*2=2
2*2=4
4*2=8
8*2=16
16*2=32
32*2=64
64*2=128
128*2=256
256*2=512