Var
p: integer;
begin
readln(p);
if p=5 then print('Молодец!')
else if p = 4 then print('Хорошо!')
else if p<=3 then print('<span>Лентяй!</span>')
end.
У́мный дом (англ. Smart House) — жилой дом современного типа, организованный для удобства проживания людей при помощи высокотехнологичных устройств. Электронные бытовые приборы в умном доме могут быть объединены в домашнюю Universal Plug’n’Play — сеть с возможностью выхода в сети общего пользования.Основной особенностью интеллектуального здания является объединение отдельных подсистем различных производителей в единый управляемый комплекс.
var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;
end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
Const Glasnie=['E', 'Y', 'U', 'I', 'O', 'A','e', 'y', 'u', 'i', 'o', 'a'];var i,k: integer; s: string;begin ReadLn(s); k:=0; for i:=1 to length(S) do if s[i] in Glasnie then k:=k+1; writeLn('Количество гласных - ',k)end.