Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.
Uses GraphAbc; begin SetWindowSize(300,200); SetPenWidth(4); SetPenColor(clRed); Line(120,40,160,120); SetPenColor(clBlue ); Line(160,120,60,160); SetPenColor(clGreen); Line(60,160,120,40); end.
C++:
#include < iostream >
using namespace std;
int a[10];
int main() {
for(int i = 0; i < 10; ++i){
cin >> a[i];
}
for(int i = 0; i < 10; ++i){
if(!(a[i]%2)) a[i] *= 2;
if((i+1)%2) a[i] /= a[0];
}
for(int i = 0; i < 10; ++i){
cout << a[i];
}
return 0;
}
(уберите пробелы до и после iostream)
Функция pos(sw,ws) возвращает индекс вхождения подстроки sw в строку ws,
569(9)=5103
26705(16)=427280
а второе я хз:D