4 задание:
var a: 10..99;
begin
readln(a);
if (a mod 10=3)or(a div 10=3) then writeln('Цифра 3 входит в число ',a)
else writeln('Цифра 3 не входит в число ',a);
end.
-----------------------------------------------------------------------------------------------------
Задание 5:
uses crt;
var a,b,c:real;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);
writeln('Введите сторону c');
readln(c);
if (a=b)or(a=c)or(b=c) then writeln('Равнобедренный')
else writeln('Не равнобедренный');
readln;
end.
----------------------------------------------------------------------------------------------------
1 задание к сожалению немного не понял 0_0.....Прости, надеюсь на помощь других....