2. Створіть три тестових набори вхідних даних для тестування про екту, призначеного для розв'язання задачі: «Два потяги виїхали
одночасно з однієї станції у протилежних напрямках. Потрібно
знайти відстань, на якій вони будуть один від одного через зада
ний час, якщо відома швидкість кожного потяга». Обчисліть очікуванні результати за складеними тестами ​

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

если предположить, что сначала уходили те, кто надел обувь большего размера, то таких будет, как минимум, двое. третий уходящий может надеть свою обувь. поэтому правильным ответом будет (б) 2 человека.

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33