9. a) Complete the sentences with the correct word from the box. mean homework speak more slowly pronounce spell in English explain partner write repeat page al How do you spell "forehead”?
Ты знаешь как прочитать данные из скачанного файла? - Нет?
Тогда я тебе подскажу. Для начала я скину тебе файл, после чего ты его скачаешь.
Сделал? - Хорошо
Теперь, когда ты его скачал, зайди на главный экран своего ПК/Ноутбука и нажми на эконку - Мой компьютер - Скачанные файлы - Выбери файл который я тебе отправил - Распаковать через Microsoft Exe.
Вот мой друг, я тебе подробно расказал как открыть и прочитать данные из файла который тебе скинули.
Если тебе не сложно то можешь сделать ответ лучшим, мне будет очень приятно.
Program z3; const n=3; var A:array[1..n] of string; var B:array[1..n] of string; i,k:byte;
begin writeln('Ввод названий газет:'); for i:=1 to n do begin write('[',i,'] '); readln(A[i]);end; writeln('Ввод фамилий подписчиков:'); for i:=1 to n do begin write('[',i,'] '); readln(B[i]);end; k:=0; for i:=1 to n do if (A[i]='Правда') and (B[i]='Петров') then k:=i; if k<>0 then writeln('Да, Петров выписывает Правду.') else writeln('Петров не выписывает Правду.'); end.
Пример: Ввод названий газет: [1] Правда [2] Мир [3] Атеист Ввод фамилий подписчиков: [1] Петров [2] Дружаев [3] Базаров Да, Петров выписывает Правду.
Привет мой друг.
Ты знаешь как прочитать данные из скачанного файла? - Нет?
Тогда я тебе подскажу. Для начала я скину тебе файл, после чего ты его скачаешь.
Сделал? - Хорошо
Теперь, когда ты его скачал, зайди на главный экран своего ПК/Ноутбука и нажми на эконку - Мой компьютер - Скачанные файлы - Выбери файл который я тебе отправил - Распаковать через Microsoft Exe.
Вот мой друг, я тебе подробно расказал как открыть и прочитать данные из файла который тебе скинули.
Если тебе не сложно то можешь сделать ответ лучшим, мне будет очень приятно.
const n=3;
var A:array[1..n] of string;
var B:array[1..n] of string;
i,k:byte;
begin
writeln('Ввод названий газет:');
for i:=1 to n do
begin write('[',i,'] '); readln(A[i]);end;
writeln('Ввод фамилий подписчиков:');
for i:=1 to n do
begin write('[',i,'] '); readln(B[i]);end;
k:=0;
for i:=1 to n do
if (A[i]='Правда') and (B[i]='Петров') then k:=i;
if k<>0 then writeln('Да, Петров выписывает Правду.')
else writeln('Петров не выписывает Правду.');
end.
Пример:
Ввод названий газет:
[1] Правда
[2] Мир
[3] Атеист
Ввод фамилий подписчиков:
[1] Петров
[2] Дружаев
[3] Базаров
Да, Петров выписывает Правду.