Var x,y,s,s1:integer;
begin
s:=0;s1:=0;
for x:=-3 to 3 do begin
if x<0 then s:=s+sqr(x);
if x>=0 then s1:=s1+x*sqr(x);
end;
writeln('s=',s);
writeln('s1=',s1);
end.
Давнондвро вот такой ответ
Нету пожелания по поводу языка, так то пишу на с++. С объяснением.
#include<iostream>#include<fstream>
#include<string> // подключаю библиотеку для работы со строками
#include <sstream> // Подключаю библиотеку для работы с функцией erase
using namespace std;
int main() {
string tt; //заказываю строку
cin >> tt; // читаю строку
while (tt.find('3')<tt.size()){ // пока символ 3 присутствует в строке...
tt.erase(tt.find('3'), 1); // ... мы удаляем его
}
while (tt.find('6')<tt.size()){ // пока символ 6 присутствует в строке...
tt.erase(tt.find('6'), 1); // ...мы удаляем его
}
cout << tt; // вывод строки
return 0;
}
Как то так, причем вводимое число может быть огромным, имеющее больше чем 255 знаков.
Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);
<span>end.</span>
Program kol_vo_elementov;
var a:array[1..10] of integer;
i, s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(25);
write(a[i],' ');
if (a[i]>0) then
s:=s+a[i];
end;
writeln('s=',s);
end.