// 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> Введите краткое имя: Лена Елена
/* Язык С++. * Запрашиваем у пользователя неопределенное количество целых чисел * пока не введёт значение = 0 * посчитать количество элементов введенных пользователем кратных 5, * а также вывести номер первого элемента, введенного пользователем значения = 5. * Ноль не учитывается (если 5 нет, то номер = 0) * Использовать do, while */ int main() { int n, c5 = 0, i = 1, i5 = 0; bool found5 = false; do { cout << "Число: "; cin >> n; if (n == 0) break; else if (n % 5 == 0) { c5++; if (i5 == 0) { i5 = i; } } i++; } while (true); cout << "Количество чисел, кратных 5: " << c5 << endl; cout << "Номер первого элемента, кратного 5: " << i5 << endl; return 0; }