Jump to content

Въпрос за една задача на Паскал


Препоръчан пост

Здравейте

Бихте ми ми помогнали с една задача на Паскал.Много ще съм ви благодарен.

Съставете програма която въвежда две цели числа и извежда по малкото на степен втора а по голямото умножено по две.

В доста други форуми не се отзоваха на молбата ми дано вие ми помогнете. :)

Link to comment
Сподели другаде

Защото?

Ако си намерил решение... сподели го :)

ОК Няма проблем това е решението на горната задача

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.

Дано послужат на някои.Приятен ден.

Link to comment
Сподели другаде

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Гост
Отговори на тази тема

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   Не можете да качите директно снимка. Качете или добавете изображението от линк (URL)

Loading...
×
×
  • Създай ново...