Составить блок схемы к задачам. 1. Найти сумму первых 10 натуральных чисел кратных 3. 2. Найти произведение первых 8 натуральных чисел кратных 7. 3. Вывести первые 25 натуральных четных чисел. 4. Вывести первые 15 натуральных чисел кратных 5. 6. Ввести число с клавиатуры. Вычитать от него 1, пока оно не станет равным 0. 7. Ввести число с клавиатуры. Прибавлять к нему 5, до тех пор, пока оно не станет больше самого себя в 10 раз. 8. Ввести число с клавиатуры. Отнимать от него 2, до тех пор, пока оно не станет меньше самого себя вдвое. 9. Ввести натуральное число с клавиатуры. Найти количество его цифр. 10. Ввести натуральное число с клавиатуры. Найти сумму его цифр что сможете ((
Ответы
1)
program pr;
uses crt;
Var y,x:real;
Begin
Writeln('vvedite x');
readln(x);
y:=(4*x)/(x-1);
Writeln('y=',y:10:3);
readln;
end.
2)
program pr;
Var n,i,a:integer;
Begin
Writeln('введите кол-во цыфр');
readln(n);
for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;
end.
2) использование массива
program pr;
uses crt;
Var n,i:integer;
a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);
Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Какое устройство предназначено для хранения информации
Автор: shmanm26
Расшифруйте двоизначный код используя таблицу ascii
Автор: oafanasiev41
Составь истинные высказывания со словами "и", "или"
Автор: Bmashutav16
Теперь в табл.2 ищем строки с этим 34:
1) Строка 2. ID_жильца=8, ID_соседа_этажа_сверху=34 Это понимается так, что Потапова К.В. живет сверху соседа с Id=7, сведения о котором берем из Табл.1 (Сокол П.К.)
2) Строка 3. ID_жильца=23, ID_соседа_этажа_сверху=34. Тот же случай, это сосед, также живущий снизу Потаповой К.В. По табл.1. устанавливаем, что это Сергеева К.В.
3) Строка 4. ID_жильца=34, ID_соседа_этажа_сверху=78. Это сосед сверху, Соловьев А.П.
4) Строка 5. ID_жильца=34, ID_соседа_этажа_сверху=1. Это тоже сосед сверху, Соловьева Н.Г.
Итак, расположение соседей:
Соловьев А.П., Соловьева Н.Г.
Потапова К.В.
Сергеева К.В., Сокол П.К.