Выполняем в тетради Заполните таблицу.
Ne
решения проблем с интернет-зависимостью
Домашнее задание
Составьте ребус к слову «Интернет ».

1 больше гулять

2.меньше проводить время за компьютером

3. Больше общаться

4.заниматься любимым хобби "собирать Лего, изучать астрономию и Т.Д"

5.заниматся спортом

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.