Var
a,b:array[1..100] of integer;
x,y,z,i,n:integer;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do read(b[i]);
for i:=1 to n do begin
if a[i]>b[i] then inc(z) else
if a[i]end;
write(x,' ',y,' ',z);
<span>Бант - рант - рана - раса - роса - коса</span>
#include <iostream>
using namespace std;
void main(){
int a,v,s;
cout<<"Input a: ";
cin>>a;
v = a*a*a;
s = 6*a*a;
cout<<"Ob'em: "<<v<<endl; //оператор endl - переносит каретку на новую строку
cout<<"Ploshch.: "<<s<<endl;
system("pause"); //останавливает выполнение программы до нажатия любой клавиши
}
№3
алг
нач
цел n,i
вывод '<span>Введите натуральное число:', нс
</span>ввод n
нц для i от 1 до n вывод i,': ',i*i,' ',i*i*i, нс
кц
кон
<span>№4</span>
алг
нач
цел a,b,i
вывод '<span>Введите два числа:', нс
ввод a,b
нц для i от a до b вывод i,'*',i,'=',i*i, нс
кц
кон</span>
Нц пока снизу свободно
вниз
кц
нц пока снизу не свободно
вправо
кц
вниз
вниз
влево
нц пока сверху не свободно
сажать цветы
влево
кц