Даны целые числа :а ,b,и с .Возвести в квадрат те из
Даны целые числа :а ,b,и с .Возвести в квадрат те из них , которые положительны.
Входные данные :-3;5;-2
Выходные :-3;25;-2.
2 ответа
Арсений
Var f: text; s,d:string;i,n:integer;a:array of integer;BeginAssign(f,'c:\\q\t.txt');Reset(f);n:=3;setLength(a,n);While not eof(f) do begin readln(f,s);writeln(i:2,' ',s);end;Close(f);writeln;var arr := s.Split(';');for i:=0 to n-1 do begina[i] := strtoint(arr[i]);if a[i] gt; 0 then a[i]:= a[i] *a[i];end;
for i:=0 to n-1 dod:= d + inttostr(a[i]) + ';';
assign (f,'c:\\q\out.txt');rewrite(f);write(f,d);Close(f);end.
for i:=0 to n-1 dod:= d + inttostr(a[i]) + ';';
assign (f,'c:\\q\out.txt');rewrite(f);write(f,d);Close(f);end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов