Предмет: Информатика, автор: ira14051

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


icYFTLRU: Язык?

Ответы

Автор ответа: Вованичикчка
2

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.


ira14051: мне дало ответ ,что 1+2+3+4+5+6+7+8+9+10=55 ,а как его оформить опять не знаю.
Вованичикчка: скиньте сюда код вашей программы
ira14051: я этого не понимаю ,это задание дал учитель без програми,так как учимся дистанционно, поэтому и ничего не могу понять.
Вованичикчка: 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.
ira14051: Спасибо вам огромнейшее.
ira14051: Я вам ещё побеспокою.Может ещё знаете как выполнить это задание.
ira14051: Помогите ,пожалуйста,
Создать программу табулирования функции
для x на промежутке от -2 до 4 с шагом 0,5. (Протабулювати функцию –
означает создать таблицу значений функции в виде:
при х=-2 значения функции у=7
при х=-1,5 значение функции у=…
при х=-1 значение функции у=.....
------------------------------------------
при х=4 значения функции у=…)
Обязателен пояснительный текст при вводе и выводе значений величин.ПРОГРАММУ ЗАПИСАТЬ В ТЕКСТОВЫЙ ФАЙЛ ТЕКСТОВОГО ПРОЦЕССОРА WORD
Вованичикчка: Я уже решал такое задание: https://znanija.com/task/35674129
ira14051: Что б я без вас делала.Спасибо ещё раз вам.
Вованичикчка: не за что
Похожие вопросы