Var a,b,c:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln(3)
else if (a=b)or(a=c)or(b=c) then writeln(2)
else writeln(0);
end.
Пример:
a, b, c:
1 2 1
2
Ответ:
Зайди в статус, нажми на 3 точки и "Приватность статуса", а там на "Мои контакты"
Составим таблицу, куда пощагово запишем все значения переменных (см. во вложении) и увидим, что значение переменной С будет равно 8
Var s,s0:string;
begin
writeln('Введите строку s:');
readln(s);
writeln('Введите строку s0:');
readln(s0);
if pos(s,s0)>0 then writeln('ДА') else writeln('НЕТ');
end.
Пример:
Введите строку s:
две
Введите строку s0:
Даны две строки
ДА
1 мб=1024 кб
15*1024=15630 кб
затем пропорция:
15630 кб -2 мин
640. кб -х мин
х= 640*2/15630
х приблизительно равен 0.0818937 приблизительно равен 0.08 мин.
Но этот ответ не точный.