<span>описание движения тел, развития организмов, процесс химических реакций.</span>
<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
end.
<u><em>C++:</em></u>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = ";
cin >>a[i];
}
return 0;
}
Ответ:
всё правильно сделал,
Объяснение:
в таблице все указано верно
Var
a: integer;
begin
readln(a);
while (a > 3) do
a := a - 4;
writeln(a);
end.
-------------
Если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации:
var
a: integer;
begin
readln(a);
while (a > 0) do
a := a - 4;
writeln(a);
end.
А конечно!!! Звуковая карта не такая уж и легкая схема!!