1. Составить линейную программу, печатающую значение TRUE…

Question

1. Составить линейную программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.2. Дано двузначное число. Определить кратна ли трем сумма его цифр.3. Известен рост трех человек. Определить, одинаков ли он.

Answer 1

46

sjdch

24 марта 2023

1) var a: string; i, o: Integer; p: Real; begin readln (o); a: =inttostr (o); for i: =1 to length (a) do p: =p+strtoint (a[i]); if (sqr (o)=p*p*p) then writeln ('true') else writeln ('false'); end.2) var a: string; i, o, p: Integer; begin readln (o); a: =inttostr (o); for i: =1 to length (a) do p: =p+strtoint (a[i]); if (p mod 3=0) then writeln ('true') else writeln ('false'); end.3) var a, b, c: real; begin readln (a, b, c); if (a=b) and (b=c) then writeln ('true') else writeln ('false'); end. Все проверено, удачи

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: