Вопрос по информатике:
1.
Составить линейную программу, печатающую значение TRUE, если указанное
высказывание является истинным, и FALSE в противном случае:
Квадрат
заданного трехзначного числа равен кубу суммы цифр этого числа.
2.
Дано двузначное число. Определить кратна ли трем сумма
его цифр.
3.
Известен рост трех человек. Определить, одинаков ли он.
- 07.07.2016 13:27
- Информатика
- remove_red_eye 4015
- thumb_up 17
Ответы и объяснения 1
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.
Всё проверено, удачи:)
- 08.07.2016 18:44
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.