Это решение при задании вручную этих чисел: Program sadadasf; var i,k,l: integer; begin Writeln('Введите первое целое двухзначное число:'); readln(i); Writeln('Введите второе целое двухзначное число:'); readln(k); If k>i then begin k:=k*k; i:=i*2; end; If i>k then begin i:=i*i; k:=k*2; end; Writeln('Первое число:', i); Writeln('Второе число:', k); end.
Это решение при задании чисел в самой программе: Program sadadasf; var i,k,l: integer; begin i:=5; k:=3; If k>i then begin k:=k*k; i:=i*2; end; If i>k then begin i:=i*i; k:=k*2; end; Writeln('Первое число:', i); Writeln('Второе число:', k); end.
Смотри. Высказывание 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.
Program sadadasf;
var i,k,l: integer;
begin
Writeln('Введите первое целое двухзначное число:');
readln(i);
Writeln('Введите второе целое двухзначное число:');
readln(k);
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.
Это решение при задании чисел в самой программе:
Program sadadasf;
var i,k,l: integer;
begin
i:=5;
k:=3;
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.