Практическая работа по информатике 7 класс создания простейших программ содержащих...

Question

Практическая работа по информатике 7 класс создания простейших программ содержащих команду ветвления: Задано два числа.Проверить, является ли больше чисел кратным меньшему числу.Если так, то вывести частное от деления большего на меньшее,если нет-сообщение о не кратность чисел

Comments

Язык?

Answer 1

var a, b, tmp: integer;

begin

a := 15;

b := 5;

if a < b then

begin

tmp := a;

a := b;

b := tmp;

end;

if a mod b = 0 then

writeln(a div b)

else

writeln('Числа не кратные');

end.

Comments

мне дало ответ ,что 1+2+3+4+5+6+7+8+9+10=55 ,а как его оформить опять не знаю.

---

скиньте сюда код вашей программы

---

я этого не понимаю ,это задание дал учитель без програми,так как учимся дистанционно, поэтому и ничего не могу понять.

---

var n, sum, i: integer;
begin
write('Введите n: ');
readln(n);

if n > 10 then n := 10;

sum := 0;
for i := 0 to n do
sum := sum + i;

writeln('Сумма: ', sum);
end.

---

Спасибо вам огромнейшее.

---

Я вам ещё побеспокою.Может ещё знаете как выполнить это задание.

---

Помогите ,пожалуйста,
Создать программу табулирования функции
для x на промежутке от -2 до 4 с шагом 0,5. (Протабулювати функцию –
означает создать таблицу значений функции в виде:
при х=-2 значения функции у=7
при х=-1,5 значение функции у=…
при х=-1 значение функции у=.....
------------------------------------------
при х=4 значения функции у=…)
Обязателен пояснительный текст при вводе и выводе значений величин.ПРОГРАММУ ЗАПИСАТЬ В ТЕКСТОВЫЙ ФАЙЛ ТЕКСТОВОГО ПРОЦЕССОРА WORD

---

Я уже решал такое задание: https://znanija.com/task/35674129

---

Что б я без вас делала.Спасибо ещё раз вам.

---

не за что