сервис вопросов и ответовСоставить программу на языке Pascal, которая позволяет ввести с клавиатуры 10 любых чисел, вычисляет и выводит на экран сумму только положительных из
5-9 класс|
|
них.
Qlia573572
12 июля 2014 г., 18:49:47 (9 лет назад)
Sabininaanna
12 июля 2014 г., 20:18:34 (9 лет назад)
program Positiv;
var i:integer; x,sum:real;
begin
sum:=0;
for i:=1 to 10 do
begin
write('введите ',i,'-е число: ');
readln(x);
if x>0 then sum:=sum+x;
end;
writeln('Cумма положительных чисел равна ',sum);
end.
Ответить
Другие вопросы из категории
Для записи сообщения использовался 64-х символьный алфавит.каждая страница содержит 30 строк.все сообщение содержит 8775 байтов информации и занимает 6
страниц.сколько символов в строке?
Для шифрования сообщения был выбран следующий метод: сдвиг каждой из 33 букв русского алфавита на 3 буквы вперед, при этом алфавит считается циклическим, т
о есть буква "я" переходит в букву "г".
Расшифруйте слова и выберите те из них, которые обозначают устройства, входящие в состав персонального компьютера.
1)УФЕЪИХХТФ
2)МСЦИЖФДП
3)УПДЦД
4)ЗМХО
5)УФТМЁТЗСДГ
6)УТПИ
Читайте также
Очень надо!! пожалуйста)Составить программу на языке Pascal, которая позволяет ввести с клавиатуры целое трехзначное число, проверяет, симметрично ли оно,
и печатает сообщение на экране. (Трёхзначное число симметрично, если крайние цифры числа одинаковые)
1)составьте программу ,которая предлагает ввести с клавиатуры две строки ,а затем выводит это строки на экран в алфавитном порядке
например армия(строка а)
арбуз (строка б)
2)составьте программу ,которая предлагает ввести с клавиатуры две строки а и б ,соеденяет их и выводит результат в одну строку
например: тепло(строка а)
ход(строка б)
СРОЧНО, ПОМОГИТЕ!!! МНОГО БАЛЛОВ!!! 1. Составить программу на языке программирования QBASIC для нахождения длины окружности L (значение
радиуса R ввести с клавиатуры), полученный ответ вывести на экран.
Помогите решить задачку в паскале ! Пожалуйста !
Составить программу на языке Pascal для решения следующей логической задачи.
По графику нужно написать задачу и решение, график прилагается.
Вы находитесь на странице вопроса "Составить программу на языке Pascal, которая позволяет ввести с клавиатуры 10 любых чисел, вычисляет и выводит на экран сумму только положительных из", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.