Қайталанатын бөліктер. 1-сабақ Суреттің бөлігін қоймас бұрын не істеу керек?

Дұрыс жауап саны: 2

Бөлікті шерту керек

Бөлікті көшіру керек

Бөлікті сақтау керек

Бөлікті қиып алу керек

Артқа

Тексеру

Question

Информатика: Қайталанатын бөліктер. 1-сабақ Суреттің бөлігін қоймас бұрын не істеу керек? Дұрыс жауап саны: 2 Бөлікті шерту керек Бөлікті көшіру керек Бөлікті сақтау керек Бөлікті қиып алу керек Артқа Тексеру ​

napokinnuu · Accepted Answer

{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?}
var a,b,c:real;
begin
writeln('введите стороны треугольника');
readln(a, b, c);
if (a+b>c) and (a+C>b) and (b+c>a) then writeln('треугольник существует')
else writeln('треугольник не существует');
end.

{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7}
var
N:integer;
begin
writeln('введите число');
readln(N);
if n mod 10= 7 then
writeln('оканчивается цифрой 7')
else writeln( 'не оканчивается цифрой 7');
end.

MOGZ ответил