Прехвърляне към съдържание


Снимка

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


  • Моля, влезте, за да отговорите
3 отговора по тази тема

#1 d_100

d_100

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 5 мнения

Публикувано: 16 June 2008 - 15:45

Здравейте
Бихте ми ми помогнали с една задача на Паскал.Много ще съм ви благодарен.
Съставете програма която въвежда две цели числа и извежда по малкото на степен втора а по голямото умножено по две.
В доста други форуми не се отзоваха на молбата ми дано вие ми помогнете. :)

#2 d_100

d_100

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 5 мнения

Публикувано: 18 June 2008 - 19:05

Моля темата да бъде изтрита.

#3 IVAN

IVAN

    Мечорат Пухашвили

  • Глобални модератори
  • ПипПипПипПипПипПип
  • 4642 мнения
  • Пол:Мъж

Публикувано: 18 June 2008 - 19:54

Моля темата да бъде изтрита.

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

#4 d_100

d_100

    Потребител

  • Потребители
  • ПипПипПипПипПипПип
  • 5 мнения

Публикувано: 19 June 2008 - 13:30

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

ОК Няма проблем това е решението на горната задача
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.
Дано послужат на някои.Приятен ден.




0 потребители четат тази тема

0 регистрирани потребители, 0 гости и 0 анонимни потребители