Для каждой задачи составить программу в Pascal, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE — в противном случае 3. Треугольник со сторонами а, в, с является равнобедренным
Ответ(ы) на вопрос:
var a,b,c:real; d: boolean; begin writeln (‘Введите строну А: ‘); readln(a); writeln (‘Введите строну B: ‘); readln(b); writeln (‘Введите строну C: ‘); readln(c); if (a=b) then d:=true else d:=false; writeln (d); end.
Var a,b:real; begin writeln(‘Введите 1 сторону.’); readln(a); writeln(‘Введите 2 сторону.’); readln(b); if a=b then writeln(‘TRUE’) else writeln(‘FALSE’); end.
Источник: cwetochki.ru
Составьте программу вводящую true если высказывание является истинным и false в противном
Привет Лёва Середнячок
Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае.
✓ Простое решение задачи из Кембриджа | В интернете кто-то неправ #029 | Пётр Земсков и Борис Трушин
а) Сумма цифр трёхзначного числа х является чётным числом.
б) Треугольник со сторонами a, b, с являются разносторонним.
3 (2 оценки)
triolana 7 лет назад
Светило науки — 553134 ответа — 388270 раз оказано помощи
1.
Var
a:integer;
Begin
Write(‘Введите число ‘);
Readln(a);
if (((a mod 10) + (a div 10 mod 10) + (a div 100)) mod 2) = 0 then write(‘True’) else write(‘False’);
End.
2.
Var
a,b,c:integer;
Begin
Write(‘Введите стороны треугольника ‘);
Readln(a,b,c);
if (a=b) or (a=c) or (b=c) then write(‘False’) else write(‘True’);
End.
Источник: vashurok.com
Составьте программу вводящую true если высказывание является истинным и false в противном
July 2022 1 1 Report
Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае:
а) сумма цифр трёхзначного числа х является чётным числом;
б) треугольник со сторонами a, b, c является разносторонним.
Помогите пожалуйста))) СОСТАВЬТЕ ПРОГРАММУ В ПАСКАЛЕ
Answers
while a > 0 do begin
sum:= sum + (a mod 10);
writeln((sum mod 2) = 0);
б)
res := (a <> b) and (a <> c) and (b <> c);
Источник: scholar.tips