Ввести с клавиатуры две строки и вывести на экран те строки, у которых на 2-м и 4-м месте стоят буквы ‘а’
Извините, но не подскажите как вывести ответ:
var a,b:string;
i:integer;
begin
writeln('Vvedite 1 stroky');
readln (a);
writeln ('Vvedite 2 stroky');
readln (b);
if (a[2]='a') and (a[4]='a') or (b[2]='a') and (b[4]='a') then
{как вывести ответ???}
else writeln ('takoi stroki net');
end.
Всё разобралась сама!
Даша, выводить на экран просто: writeln(a); и /или writeln(b);, только ты обратила внимание, что выводить на экран одно и то же надо не в том случае, если хоть одна строка удовлетворяет условию, а "те строки", т.е. каждую строку надо проверять и выводить отдельно.