( 1Мбайт = 1 000 000 байт ) приставка Мега = 1 000 000.
8Мбайт = 8 000 000 байт
Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>
#include <iostream>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
for(int i = 0; i <= 1000; i++){
if(a * i % b == c){
cout << i;
return 0;
}
}
cout << 0;
return 0;
}
<h3>
Все прошло.</h3>
Баллы без умственной нагрузки? отличная идея!
Var
s: string := 'Мышки ели шишки.';
a: set of char := ['а'..'я', 'ё'];
n, i: integer;
begin
s := LowerCase(s) + ' ';
for i := 2 to Length(s) do
if not (s[i] in a) and (s[i-1]='и') then
n := n + 1;
writeln(n);
<span>end.</span>