Путь к файлу (Например C:\file.txt)
Mod - это остаток от числа. Значит, 9 mod 2 = 1
Процесс
источник: Животные, охраняя свою территорию, оставляют пахучие метки
Растение
Другое животное сравнивает со своим запахом и делает вывод, что запах не его
Летучая мышь ориентируется в пространстве, испуская ультразвуковые волны
Банк располагает данными о своих вкладчиках
//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека
Var a,b,k:integer;
begin
writeln('a, b:');
readln(a,b);
k:=0;
while a<>b do
begin
k:=k+1;
if a>b
then begin writeln(k,': ',b,'*',b); a:=a-b; end
else begin writeln(k,': ',a,'*',a); b:=b-a; end;
end;
k:=k+1;
writeln(k,': ',a,'*',a);
writeln('k = ',k);
end.
Пример:
a, b:
3 8
1: 3*3
2: 3*3
3: 2*2
4: 1*1
5: 1*1
k = 5