var
a, i, count, s: integer;
begin
repeat
if(i = 100) then break;
readln(a);
if(abs(a) > 300) then begin
writeln('Число по модулю не может быть > 300.');
continue
end
else if(a mod 9 = 0) and (a <> 0) then begin
inc(count);
s := s + a;
end;
if(a <> 0) then inc(i);
until(a = 0);
writeln('Среднее арифметическое: ', s / count);
end.
Например когда закрываешь документ будет 3 выбора: Сохранить и закрыть. Закрыть. Отмена.
2. Специальный значок в левом верхнем углу.
3. Клавишами ctrl+s
4. Нажать на ФАЙЛ, и там есть кнопки Сохранить, Сохранить как.
//Sorry I know only C++ language
#include<iostream>
using namespace std;
int main(){
<span> char a,b,c,d,a2,b2,c2,d2;</span><span>
cin>>a>>b>>c>>d;
</span><span> a2=a-48;
</span><span> b2=b-48;
</span><span> c2=c-48;</span><span>
d2=d-48;
</span><span> cout<<(a2+b2+c2+d2)%4;</span>
return 0;}<span>
</span>
Когда щёлкнешь по зеленому флажку
Всегда [8] шагов (можете [10] шагов)
Повторить [2] раза
Сменить на [1] костюм
Идти в точку - 123_31
Выбрать костюм [2]
Идти [8] шагов (можете [10] шагов)
Сменить на [3] костюм (Костюм мышки)
Var
s, sl, sc: string;
i, k: integer;
begin
write('Введите текст ');
readln(s);
write('Введите слово ');
readln(sl);
s:=' '+s+' ';
<span> sl:=' '+sl+' ';</span>
for i := 1 to length(s) - length(sl) + 1 do
begin
sc := copy(s, i, length(sl));
if sc = sl then inc(k);
end;
if k = 0 then writeln('Не встречается')
else writeln('Встречается ', k, ' раз');
end.