1)если четырехзначное число введенное с клавиатуры является симметричными (например 1331, 0550)то вывести 1,иначе любое другое число
2)Даны три действительных числа.Возвести в квадрат те из них , значение которых не отрецательны (результат вычеслить )
|
|
|
|
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
|
|
|
|
