Реферат: Разработка модулей программы /Укр./

writeln(f2,name);

while not eof(f1) do begin

readln(f1,name);

writeln(name);

write('Ваша відповідь :');

readln(name);

writeln(f2,name);

readln(f1,ansv);

if ansv=name then k:=k+1;

i:=i+1;

end;

writeln(f2,'Всього питань :');

writeln(f2,i);

writeln(f2,'Правильних питань :');

writeln(f2,k);

close(f1);

close(f2);

end.

РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ:

Вміст файлу протоколу:

Бригіда e02

толстой

поет

да

Всього питань :

3

Правильних питань :

2

Задача 2: