сервис вопросов и ответовнапишите, пожалуйста, программу для паскаля. Номер 1 только
10-11 класс|
|
Прикрепленные изображения
Venera2001009
26 дек. 2013 г., 9:03:43 (10 лет назад)
Vano51
26 дек. 2013 г., 10:13:48 (10 лет назад)
var
a:array[1..10]of integer;
k,s,i:integer;
begin
i:=1;
while i<11 do
begin
a[i]:=random(30);
write(a[i]:4);
i:=i+1;
end;
writeln;
write('k=? ');
readln(k);
i:=1;
while i<11 do
begin
if a[i]mod k=0 then s:=s+a[i];
i:=i+1;
end;
writeln('s=',s);
end.
Adlbas
26 дек. 2013 г., 11:59:08 (10 лет назад)
желательно с функцией While
Ответить
Другие вопросы из категории
Составить блок-схему на языке Паскаль.
Задача
Двумерный массив L задан при помощи генератора случайных чисел из интервала [+1,+5].
Подсчитайте произведение элементов данного массива, которые больше 10, но меньше 30
2)переведите данное число в десятичную систему счисления.
а)1706,34(8)
б)94,4(16)
Читайте также
1) Напишите пожалуйста программу (на языке BASIC) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
Напишите пожалуйста программу в Паскале:Написать программу,которая по номеру месяца выводит название следующего за ним месяца(с помощью оператора case)
Например: если я ввожу 2 должно выйти март
Напишите пожалуйста программу в Паскале:Написать программу,которая по номеру месяца выводит название следующего за ним месяца(с помощью оператора case)
Например: если я ввожу 2 должно выйти март
Даны 2 двузначных целых числа X и y.Найти D=MAX{x+y;y-x}+3,E=MIN{x^2+y^2;y^2+x*y}-4.если D<E,то к переменной D прибавить первую цифру числа
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале
Вы находитесь на странице вопроса "напишите, пожалуйста, программу для паскаля. Номер 1 только", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.