Program zhn;
type atype = array of Integer;
var
n,i:integer;
a:atype;
begin
write('Введите количество элементов в массиве: ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(100);
if i mod 2 = 0 then writeln(i,') ',a[i]);
end;
end.
Жила Тётушка Совунья она очень любила информатику и учила всех!
Но один мальчик Сема не любил информатику ,Тётушка учила его ,учила,учила,но он всеровно не хотел учить этот предмет. Один раз когда прозвенел звонок после урока Русского языка (следующий урок был информатика) Сема сказал всем что"А вы знаете ,что информатика это легкий придмет и поэтому я его не учу " А все подумали" Может Семка прав? Довайте выбрасим тетрадки и будем играть лучше на уроке , А довай" (Сказали дети) И выбрасили тетрадки.
Они пришли на урок и начели беситься . Пришла Тётушка Совунья и Сказала"Дети!
Вы чего Информатика Очень полезный урок !" Дети задумались.... Тетушка совунья" Если вы не будите знать Инорматику вы не сможите играть в ваши современные компьютеры!" И дети всё поняли,Даже Сема всё понел ,и начел учить информатику.
label ra,rb;
var a,b,c: integer;
begin
write('Введите сторону a: ');
readln(a);
ra: write('Введите сторону b: ');
readln(b);
if b>a then
begin
rb: write('Введите сторону c: ');
readln(c);
if c>b then begin
if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');
end else begin writeln('Введите число больше, чем ',b); goto rb; end;
end else begin writeln('Введите число больше, чем ',a); goto ra; end;
end.