Смотри. Высказывание F-истинное, обозначим 1 Высказывание С-ложное, обозначим 0 я насчет 1 не особо уверенна, начну со 2 2) знак И. значение истинно только тогда, когда оба значения истинны, но так как С высказывание ложно, то отсюда следует все высказывание ложное 3) тоже знак И. этот знак может записываться & или and или * опять ложное 4) это наверно знак кхора, плюсик в кружочке, тогда истинно будет высказывание когда одно из выражений истинно, а у тебя F-истинное, значит все выражение истинно. ну как-то так, но я не уверена
//Pascal //Файл fileText.txt должен быть в папке с программой
const Vowels = ['e', 'u', 'i', 'o', 'a', 'y', 'E', 'U', 'I', 'O', 'A', 'Y']; var t: text; s: char; n, min, mult, mult2, count, count2: integer; begin Assign(t, 'fileText.txt'); Reset(t); n := 0; min := 0; mult := 1; count := 0; while not eof(t) do begin count := count + 1; while not eoln(t) do begin read(t, s); if s in Vowels then inc(n); if s in ['0' .. '9'] then mult := mult * (Ord(s) - 48); end; if n > min then begin min := n; mult2 := mult; mult := 1; count2 := count; end; readln(t); n := 0; mult := 1; end; Close(t); write(count2, ' строка. '); write('Произведение = ', mult2, '. '); writeln('Гласных = ', min); readln; end.
Высказывание С-ложное, обозначим 0
я насчет 1 не особо уверенна, начну со 2
2) знак И. значение истинно только тогда, когда оба значения истинны, но так как С высказывание ложно, то отсюда следует все высказывание ложное
3) тоже знак И. этот знак может записываться & или and или *
опять ложное
4) это наверно знак кхора, плюсик в кружочке, тогда истинно будет высказывание когда одно из выражений истинно, а у тебя F-истинное, значит все выражение истинно.
ну как-то так, но я не уверена
//Файл fileText.txt должен быть в папке с программой
const
Vowels = ['e', 'u', 'i', 'o', 'a', 'y', 'E', 'U', 'I', 'O', 'A', 'Y'];
var
t: text;
s: char;
n, min, mult, mult2, count, count2: integer;
begin
Assign(t, 'fileText.txt');
Reset(t);
n := 0; min := 0; mult := 1; count := 0;
while not eof(t) do
begin
count := count + 1;
while not eoln(t) do
begin
read(t, s);
if s in Vowels then
inc(n);
if s in ['0' .. '9'] then
mult := mult * (Ord(s) - 48);
end;
if n > min then
begin
min := n;
mult2 := mult;
mult := 1;
count2 := count;
end;
readln(t);
n := 0;
mult := 1;
end;
Close(t);
write(count2, ' строка. ');
write('Произведение = ', mult2, '. ');
writeln('Гласных = ', min);
readln;
end.