Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачи!) (Паскаль!)
Помогите решить задачи!)
1)если четырехзначное число введенное с клавиатуры является симметричными (например 1331, 0550)то вывести 1,иначе любое другое число
2)Даны три действительных числа.Возвести в квадрат те из них , значение которых не отрецательны (результат вычеслить )
1 | Автор: crocop | 2012-05-23, 10:01   |  Репутация: [ + 1 ]
1 | Автор: crocop | 2012-05-23, 10:01   |  Репутация: [ + 1 ]
1.
var
a:integer;
begin
read(a);
if (a div 1000=a mod 10)and(a mod 1000 div 100=a mod 100 div 10) then
writeln('1') else begin randomize; writeln(random(100));end;
end.
2.
var
a,i:integer;
begin
for i:=1 to 3 do begin
read(a);
if a<0 then writeln(a*a);end;
end.

"Спасибо" принимается в виде повышения репутации ( Зелёнйы плюсик:).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-23, 10:05   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачи!) (Паскаль!)
Страница 1 из 11
Поиск: