Какое из названий городов удовлетворяет логическому условию (не(первая буква согласная) или (вторая буква согласная)) и не (последняя буква гласная)? 1) пенза 2) псков 3) курск 4) самара
В условии НЕ(Первая буква согласная) или (Вторая буква согласная)) и НЕ (Последняя буква гласная) избавляемся от отрицаний: (Первая буква гласная) или (Вторая буква согласная)) и (Последняя буква согласная). Это условие "переводим" на русский язык: "Последняя буква в слове согласная и при этом: первая буква гласная, или вторая согласная, или и то, и другое)" Последняя буква согласная в словах 2) Псков и 3) Курск. Первой буквы гласной в них нет, а вторая согласная в слове 2) Псков. Это и есть ответ.
Program Project1; var a:array[1..5] of Integer; i, j, sum:Integer; s:string; begin Readln(s); sum:=0; for i:=1 to 5 do begin if (Length(s)>=2) then begin j:=Pos(' ', s); a[i]:=StrToInt(Copy(s, 1, j-1)); sum:=sum+a[i]; Delete(s, 1, j); end else begin a[i]:=StrToInt(s); sum:=sum+a[i]; end; end; for i:=1 to 5 do begin if (a[i]<>0) then begin a[i]:=a[i]-sum; Write(a[i], ' '); end else begin a[i]:=a[i]; Write(a[i], ' '); end; end; end.
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу. 2. Немного изменим ваш код и получим искомое значение x Искомое число х = 16293
var x, y, a, b, k: integer;
begin k:=10000; repeat x:=k; a := 0; b := 0; y := 1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a := a * 10 + x mod 10 else begin y := y * 10; b := b * 10 + x mod 10 end; x := x div 10 end; a := a * y + b; k := k + 1; until a = 26391; writeln(a:8, k-1:8); end.
НЕ(Первая буква согласная) или (Вторая буква согласная)) и НЕ (Последняя буква гласная)
избавляемся от отрицаний:
(Первая буква гласная) или (Вторая буква согласная)) и (Последняя буква согласная).
Это условие "переводим" на русский язык:
"Последняя буква в слове согласная и при этом: первая буква гласная, или вторая согласная, или и то, и другое)"
Последняя буква согласная в словах 2) Псков и 3) Курск.
Первой буквы гласной в них нет, а вторая согласная в слове 2) Псков. Это и есть ответ.