// 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>
Введите краткое имя: Лена
Елена
A:= 4;
b:= 2;
b:= a/2*b = 4/2*2 = 4/4 = 1;
a:= 2*a+3*b = 2*4+3*1 = 8+3 = 11;
a = 11;
b = 1;
Ответ:
program numab;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
Const
n=10;
var i,sum:integer;
mass:array[1..n] of integer;
begin
for i:=1 to n do
begin
mass[i]:=random(80)-5;
write('mass[',i,']= ',mass[i]);
writeln;
if mass[i]>0 then sum:=sum+mass[i];
end;
writeln('Сумма положительных элементов массива равна ',sum);
end.
<span>
</span>