сервис вопросов и ответов1)Опредилите делится ли данное число на 6, В Поскале!! 2)найдите количество натуральных чисел сумма кубов которых не привышает 589 в поскале!
5-9 класс|
|
Ira2401200301
15 мая 2014 г., 15:32:29 (9 лет назад)
Anastasiiaaaaa
15 мая 2014 г., 17:05:44 (9 лет назад)
1)if a mod 6=0
Then writeln('делится')
Else writeln('не делится')
Арина009
15 мая 2014 г., 18:46:42 (9 лет назад)
Program delitel;
Var A: integer;
begin
Write ('Введите число А=');
Read (A);
If A mod 6 = 0 then Write ('Число А делится на 6 без остатка')
else
Write ('Число А не делится на 6 без остатка');
end.
Program delitel;
Var A, S: integer;
begin
S:=0;
A:=1;
i:=0;
While S<589 do begin
S:=S+A*A*A;
i:=i+1;
A:=A+1;
end;
Write ('Количество чисел i=', i);
end.
Ответить
Другие вопросы из категории
1.приведите пример информационной модели: а)ученика вашего класса б)игрока баскетбольной команды в)пациента ветеринарной
лечебницы
г)квартиры жилого дома
д)книга в библиотеке
е)кассеты (диска) с звукозаписью(видеозаписью)
ж)города
2.придумай пример информационной модели,образными элментами которой являются муляжи фруктов и цветов.
Читайте также
2. Определить, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной определить самостоятельно. При
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
Помогите пожалуйста! 1.Дано три положительных числа.Проверить можно ли построить прямоугольный треугольник с заданными сторонами. 2.Проверить делится ли
данное число на 13.
Определить, делится ли первое число на другое без остатка.
Сначала строим информационную модель устно.
Во-первых, вводятся числа А и В.
Находим остаток от деления числа А на число В.
Если остаток от деления равен нулшю, то выводим результат: Число А делится на число В без остатка
Иначе
Результат – Число А делится на число В с остатком.
Составить блок-схему и программу определяющую делится ли первое число на второе.
(использовать команду mod и div с формулой a:=b mod c)
Вы находитесь на странице вопроса "1)Опредилите делится ли данное число на 6, В Поскале!! 2)найдите количество натуральных чисел сумма кубов которых не привышает 589 в поскале!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.