#include <iostream>
using namespace std;
int main()
{
int n;
cin >> n;
for(int j = 0; j <= n/4; ++j)
for (int i = 0; i <= n/2; ++i)
if (i*2 + j*4 == n)
cout << i << ' ' << j << endl;
}
Uses graphabc;
var
i, c: integer;
ar: array[1..5]of integer;
begin
for i := 1 to 5 do
read(ar[i]);
window.IsFixedSize := true;
window.Init(0, 0, 800, 800, clDarkGray);
window.CenterOnScreen;
SetFontSize(32);
for i := 1 to 5 do c := c + ar[i].ToString.Length;
for i := 1 to 7 do writeln;
write(' ':33 - c);
for i := 1 to 5 do
begin
if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
begin
SetFontColor(clred);
write(ar[i]);
end
else if(ar[i] mod 10 = 0) then
begin
SetFontColor(clblue);
write(ar[i]);
end
else if(ar[i] mod 2 <> 0) then
begin
SetFontColor(clyellow);
write(ar[i]);
end
end;
end.
Ошибка после условия, цикл будет выполнятся бесконечно, так как переменная a всегда будет a=1. Чтобы исправить это, нужно:
s=s+a
n=n+1
a=a+1
Результат - 10.
var a:array [1..4,1..6] of integer;
i,j:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 6 do
begin
if j mod 2 <> 0 then a[i,j]:=1
else a[i,j]:=2;
write (a[i,j],' ')
end;
writeln
end
end.
Сверху вниз
для 1 второй
для 2 зависит от языка программирования наверное второй
для 3 второй
для 4 второй
для 5 второй
для 6 второй скорее всего
для 7 второй
для 8 второй