сервис вопросов и ответовНапишите для паскаля,пожалуйста.
5-9 класс|
|
С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.
настя2656
23 сент. 2014 г., 14:24:39 (9 лет назад)
Liza180140
23 сент. 2014 г., 17:21:14 (9 лет назад)
program chik;
var k,i,s,a:integer;
begin
s:=1;k:=0;
for i:=1 to 17 do
begin
read(a);
if (a mod 17<>0)then begin
k:=1;
s:=s*i;
end;
end;
if k=1 then write(s)else write(0);
end.
Ответить
Другие вопросы из категории
помогите пожалуйстаХома недавно вырыл себе новую нору и принялся ее благоустраивать и украшать. Так на одной из стен он решил расположить семейные
фотографии, но вот на какой именно стене пока не решил. Архив фотографий у Хомы очень большой и все фотографии разместить на стене не представляется возможным, но Хома все равно хочет разместить как можно больше фотографий.
Основная проблема в том, что фотографии есть размера 10х15 и 9 х 13. И нужно, чтобы были размещены фотографии обоих видов, при этом фотографии поворачивать нельзя. Помогите Хоме справиться с данной задачей. фотографий.
В ответ необходимо вывести 3 числа через пробел. Первое число – максимальное количество фотографий, которое можно размесить на стене размером 45х55 , второе число – максимальное количество фотографий на стене размером 90х171 и третье число – максимальное количество фотографий на стене размером 118х195. фотографий.
используя график, назовите самые дождливые дни
1) 10, 20, 22, 31
2) 8, 20, 27, 30
3) 10, 20, 27, 30
4) 10, 22, 27, 30
Как картинку из документа Microsoft Office Word 2007 сохранить в формате JPG?
Как диаграмму из Microsoft Office Word 2007 вставить в презентациюю?
ПОМОГИТЕ ПОЖАЛУЙСТАА)))
Вычислить сумму выражений для i от 3 до x. К сумме прибавить
произвольное вещественное число j, вывести результат.
Читайте также
Напишите для паскаля,пожалуйста.
С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.
(Мы прошли только до цикла с постусловием)
Определить Лежит ли точка в заштрихованной плоскости.
Напишите в Паскале пожалуйста
НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММУ ДЛЯ ПАСКАЛЯ: 1) Разработайте алгоритм для ввода в память ЭВМ линейной таблицы В, состоящей из 8 элементов вещественного
типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса
Пожалуйста! Напишите программу для паскаля-
Имеются два числа:
а) вычислите сумму и разность этих чисел, используя два оператора readln.
б) перепишите программу так, чтобы использовался один оператор readln.
в) добавьте комментарии к программе.
Вы находитесь на странице вопроса "Напишите для паскаля,пожалуйста.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.