Var a,b,c,d:integer;
beginwriteln('введите десять чисел');
readln(a);
b:=1;
d:=0;
for c:=2 to 10 do
begin
readln(a);
if (a > 0) then b:=b*a;
if (a < 0) then d:=d+a;
end;
writeln('положительные ',b);
writeln('отрицательные ',d)
<span>end.</span>
Program abc;
var x, y,z:integer
begin
readln(x,z);
y:=2*x+2*z-(x/z);
writeln(y);
end.
Вроде так, разве что знаки могут быть другие( типо ; в конце и тд)
Имена процедур для Delphi - после //
var f:text; // TextFile
c:char; s:string; i:integer;
begin
Randomize;
assign(f,'data.pas'); // AssignFile
reset(f);
s:='';
c:='0';
while c<>' ' do
begin
read(f,c);
s:=s+c;
end;
for i:=length(s)-1 downto 1 do write(s[i]);
writeln;
close(f); // CloseFile
end.
Пример:
Файл data.pas:
130384565486 10254 658
Результат работы программы:
684565483031
35.
1)1700,5; 52,71; 43,7 (8сс)
2)2F,6; 107,38; 2A,2
38.
5105(8cc)
Нарисуй быстрый закат или рассвет
Что бы солнце плавно пере двигалось и менялась цветами