Var st: string;begin write('строка: '); readln(st); repeat delete(st,1,1); writeln(st); until length(st)<2;end.
1. Var s,i:integer;
Begin
S:=0;
For i:=1 to 1000 do
If (i mod 5<>0)and (i mod 7 <>0) Then s:=s+1;
Writeln(s);
Readln;
end.
В указанном ряду только 4 числа четные: 24, 74, 86, 122. По условию задачи нам подходят 74, 86, 122. 24 не подходит, так как 24<50.
Ответ: 74+86+122.= 282
//Я сделаль
#include <bits/stdc++.h>
using namespace std;
int main()
{
cout << " 1 \n";
cout << "------\n";
cout << " M \n";
cout << " MMM \n";
cout << "MMMMM\n";
cout << " M M \n";
cout << " MMM \n";
cout << "------\n";
cout << " 2 \n";
cout << "------\n";
cout << "M \n";
cout << "MM \n";
cout << "MMMMMM\n";
cout << " MM\n";
cout << " M\n";
cout << "------\n";
cout << " 3 \n";
cout << "------\n";
cout << "M M\n";
cout << " M M \n";
cout << " MMMMM \n";
cout << " M M M \n";
cout << " MMMMM \n";
cout << "------\n";
cout << " 4 \n";
cout << "------\n";
cout << " M\n";
cout << " MM\n";
cout << " MMM\n";
cout << " MMMMM\n";
cout << "MMMMMMM\n";
cout << "------\n";
cout << " 5 \n";
cout << "------\n";
cout << "M M\n";
cout << "MM MM\n";
cout << "MMMMM\n";
cout << "MM MM\n";
cout << "M M\n";
}