Задание:
1. Составить линейную программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.2. Дано двузначное число. Определить кратна ли трем сумма его цифр.3. Известен рост трех человек. Определить, одинаков ли он.
Решение:
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. Все проверено, удачи
Знаете другой ответ?