Program n_12;
var a;
begin
write ('введите число');
if (a); a= положит., отрицат., или равное 0
end.
Решение вложено.
-------------------------------------------
Юра - похоже любитель бульдогов.
Так как в описании присутствуют 3 человека - это Юра, Коля и Катя.
Исходя из этого, Юра отличается от всех, так как у него разные вкусы с Колей, и разные предпочтения с Катей.
Ира осталась в сторонке....
То бишь главный бунтарь в этой шайке Юра
Подмножество объектов<span>, </span>имеющих общие признаки<span>, называется классом. </span>
var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln('No');
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]="a" then n:=n+1;
writeln(n);
End.