Файл изображения, хранящегося в Portable Network Graphic (PNG) формате.
<span>#include <iostream> первое
</span><span>#pragma hdrstop второе
</span><span>using namespace std<span>; третье
</span></span><span>#pragma argsused четвертое
</span><span>int main(int argc, char* argv[]<span>) пятое
</span></span><span>int n<span>; шестое
</span></span><span>do седьмое
</span><span>std::cout << "Enter number: "<span>;<span> восьмое
</span></span></span><span>std::cin >> n<span>; девятое
</span></span><span>while (n != 0)<span>; десятое
</span></span><span>system("pause")<span>; одиннадцатое
</span></span><span>return 0<span>; конец
вроде так</span></span>
Var x,y:real;
begin
write('x = ');
readln(x);
if x<=3
then y:=x*x-3*x+3 else y:=1/(x*x+6);
writeln('y = ',y);
end.
Пример:
<span>x = 2
y = 1</span>
1) Г, только там должно быть For I:= а не Fot I=
2) В
3) Г, только там должно быть For I:= а не Fot I=, а также Д
4) A, C, Б, Д - если это про Паскаль.
//PascalABC.NET 3.2 сборка 1318
Var
ar:array[1..4] of real;
i,j:integer;
c:real;
begin
for i:=1 to 4 do
readln(ar[i]);
for i:=1 to 3 do //так как только 8 класс, пузырёк
for j:=i+1 to 4 do
if ar[i]>ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
for i:=1 to 4 do
write(ar[i]:3);
end.
Пример ввода:
2
1
4
3
Пример вывода:
1 2 3 4