// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var names:array[1..2,1..5] of string:=
(('Саша','Женя','Таня','Лена','Вася'),
('Александр','Евгений','Татьяна','Елена','Василий'));
var name:=ReadlnString('Введите краткое имя:');
var p:=0;
for var i:=1 to 5 do
if name=names[1,i] then begin p:=i; break end;
if p>0 then Writeln(names[2,p])
else Writeln('Я вас не знаю!')
end.
<u><em>Тестовое решение</em></u>
Введите краткое имя: Лена
Елена
Var
x,y,z:real;
begin
writeln('Введите три числа');
read(x,y,z);
If (x>z) and (x>y) then
writeln('Наибольшее= ',x);
If (y>z) and (y>x) then
writeln('Наибольшее= ',y);
If (z>x) and (z>y) then
writeln('Наибольшее= ',z);
If (z=y) and (y=x) then writeln('Все числа одинаковые') else
begin
If (z=x) then writeln('числа x и z равны');
If (y=x) then writeln('числа x и y равны');
If (z=y) then writeln('числа y и z равны');
end.
end.
Озеро Байкал считается морем по своим размерам. Там постоянные ветра, дожди, снег и прочее. В прилегающих районах другой климат, так как они отдалены от Байкала.
Это своими словами
Оно будет ложным для 4:
Не( у гласная) или ( и не согласная)
Ложь или ложь= ложь