Алг нач вещ a, b, c лог d a := 1 b := 0 c := 0 d := да нц пока (d) ввод a ввод b ввод c если не ((a < b+c) и (b < a+c) и (c < a+b)) то вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") не существует" d := нет иначе если (((a ** 2 = b ** 2 * c ** 2) или (b ** 2 = a ** 2 + c ** 2) или (c ** 2 = a ** 2 + b ** 2)) и ((a <> b) и (b <> c))) то вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") прямоугольный", нс все все кц кон
Она спрашивает стороны, пока не введёшь стороны несуществующего треугольника (например 1-0-1) =)
''' Длина Московской кольцевой автомобильной дороги - 109 километров. Байкер Вася стартует с нулевого километра МКАД и едет со скоростью v километров в час. На какой отметке он остановится через t часов?
Программа получает на вход значение v и t. Если v>0, то Вася движется в положительном направлении по МКАД, если же значение v<0, то в отрицательном.
Программа должна вывести целое число от 0 до 108 — номер отметки, на которой остановится Вася. '''
l = 109
v, t = [int(input(x)) for x in ('Скорость (км/с): ', 'Время (час): ')] pos = v * t % l
var r:integer; begin writeln('Введите радиус'); read(r); writeln('Длина окружности = ',2*pi*r); writeln('Площадь круга = ',pi*sqr(r)); end.
Задание №2
var a,d,n:integer; begin writeln('Введите первый член, знаменатель, число членов'); read(a,d,n); writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d)); end.
Задание №3
var m,n:integer; begin writeln('Введите m и n'); read(m,n); if m=n then begin m:=0; n:=0; end; if (m>n) then n:=m else if n>m then m:=n; end.
Задание №4
var a,b,c:integer; begin writeln('Введите стороны a,b,c'); read(a,b,c); if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный') else writeln('Треугольник неравнобедренный'); end.
Задание №5
var a,b,c:integer; begin a:=0; c:=0; repeat writeln('Введите число'); read(b); if b<0 then a:=a+1; c:=c+1; until c=3; writeln('Количество отрицательных = ',a); end.
Задание №6
var a,c:integer; b:real; begin writeln('Введите количество часов'); read(a); c:=a div 3; b:=power(2, c); writeln(b); end.
Задание №7
const n=10; var a:array [1..10] of integer; i,k,s:integer; begin writeln('Введите k'); read(k); writeln('Введите элементы массива'); for i:=1 to n do begin read(a[i]); if a[i] mod k =0 then s:=s+a[i]; end; writeln(s); end.
нач
вещ a, b, c
лог d
a := 1
b := 0
c := 0
d := да
нц пока (d)
ввод a
ввод b
ввод c
если не ((a < b+c) и (b < a+c) и (c < a+b)) то
вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") не существует"
d := нет
иначе
если (((a ** 2 = b ** 2 * c ** 2) или (b ** 2 = a ** 2 + c ** 2) или (c ** 2 = a ** 2 + b ** 2)) и ((a <> b) и (b <> c))) то
вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") прямоугольный", нс
все
все
кц
кон
Она спрашивает стороны, пока не введёшь стороны несуществующего треугольника (например 1-0-1) =)