ОК Няма проблем това е решението на горната задача var
A,B : integer;
begin
Write('Vavedete chisloto a:');
Readln(a);
Write('Vavedete chisloto b:');
Readln(b);
if A<B then
begin
Writeln('Po-malkoto chislo e chisloto A: ',a,' i negoviq kvadrat e: ',sqr(a));
Writeln('Po-golqmoto chislo e B: ',b,' i stoinostta mu umnojena po 2 e: ',b*2);
end
else
begin
Writeln('Po-malkoto chislo e chisloto B: ',b,' i negoviq kvadrat e: ',sqr(b));
Writeln('Po-golqmoto chislo e A: ',a,' i stoinostta mu umnojena po 2 e: ',a*2);
end;
Readln;
end. Имах една втора задача.Ето условието и решението. Съставете програма която определя дали даденото цяло число въведено от клавиатурата седели на 5 и 15. var a:integer;
Begin
write('a='); readln(a);
if (a mod 5 = 0 )and (a mod 15 = 0) then writeln('a se deli na 5 i 15');
if (a mod 5 = 0) and (a mod 15 <> 0) then writeln('a se deli na 5, no ne i na 15');
if (a mod 5 <> 0) and (a mod 15 <> 0) then writeln('a ne se deli nito na 5, nito na 15');
readln;
End. Дано послужат на някои.Приятен ден.