Помогите, пожалуйста, написать программу(Паскаль) к этой задачи.
5-9 класс
|
program i23;
var
i,p,k: integer;
a:array [1..100] of integer;
begin
readln(p);
k:=0;
for i:=1 to 100 do
if a[i]=p then
k:=i;
if k:=0 then
writeln('0')
else
writeln(k);
end.
Другие вопросы из категории
y= 2x^3 + 1\x-5, если х меньше 4
3x^2-2, если х больше или равно 4
Что такое устройтво ввода?
Я никак не могу вспомнить..
Буду благодарна за помощь:))
Заранее спасибо;)
посещения врача и оформить ее в виде таблицы.
3)К каким типам данных относятся следующие значения:
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
кратных k.(1 <(или равно) n<(или равно)4).
Если дано трехзначное число, например 123 его можно представить в виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу, которая, получая от пользователя трехзначное число, будет определять из каких цифр оно состоит и выводить их через пробел (например, 1_2_3).
1)Написать программу которая меняет местами числа a и b(линейная и оператор присваивания)
2)Программа проверки существования треугольника по его 3 сторонам
Напишите пожалуйста***