Нужные места вставьте буквы, обозначающие гласные звуки, так, чтобы получились названия устройств персонального компьютера. 1. мтрнск плт 2.пртвн пмть 3.кстчск клнк

1. материнская плата 2. оперативная память 3. акустические колонки

qbasic:

 

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

 

max(n) = 7, при a = 0

 

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.