Предмет: Информатика,
автор: 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.
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
Похожие вопросы
Предмет: Другие предметы,
автор: zaursamedov02
Предмет: Русский язык,
автор: Софи5
Предмет: Українська мова,
автор: alina0504589
Предмет: Геометрия,
автор: dsjhjjscaj
Предмет: Математика,
автор: Сарвар2006