Вопрос по информатике:
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен ноль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 21.12.2016 18:06
- Информатика
- remove_red_eye 6709
- thumb_up 13
Ответы и объяснения 1
glinchouiles763
var
date, number, summa : integer;
avarage : real;
begin
date := 1;
summa := 0;
number := 0;
avarage := 0;
repeat
readln(date);
if (date 0) then
begin
number := number + 1;
end;
summa := summa + date;
until (date = 0);
avarage := summa / number; writeln(‘Summa = ‘, summa);
Задачи решаемые с помощью оператора While. Python.
writeln(‘Srednee znachenie = ‘, avarage:2:3);
readln;
end.
- 22.12.2016 06:24
- thumb_up 23
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Источник: online-otvet.ru
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчитать количество введённых положительных и отрицательных чисел.
Найди верный ответ на вопрос ✅ «Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчитать . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
ГДЗ по программированию на python Босова часть 2
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчитать количество введённых положительных и отрицательных чисел.
Источник: urokam.net
Решение задач на языке программирования Pascal (Подготовка к ОГЭ)
Задача 1 . Напишите программу для выведения на экран трёх чисел в порядке обратном вводу
Задача 1.
Напишите программу для выведения на экран трёх чисел в порядке обратном вводу. Нужно ввести с клавиатуры три числа (первое, второе и третье), а компьютер должен вывести третье, затем первое и второе.
program tri_сhisla;
var a, b, c: integer;
begin
writeln(‘Введите три числа через пробел’);
readln(a, b, c);
writeln(c,’ ‘, a, ‘ ‘,b);
read
end.
Задача 2. Напишите программу, которая производит обмен значений переменных x и y , если x больше y
Задача 2.
Напишите программу, которая производит обмен значений переменных x и y, если x больше y.
program Obmen;
var x,y: integer;
begin
writeln(‘Введите значения x и y’);
readln(x,y);
if x>y then
begin
x:=x+y;
y:=x-y;
x:=x-y;
writeln(‘x=’,x);
writeln(‘y=’,y);
readln
end;
end.
Задача 3. Напишите программу для вычисления наибольшего общего делителя двух целых чисел
Задача 3.
Напишите программу для вычисления наибольшего общего делителя двух целых чисел.
program nod1;
var
m, n: integer;
nod: integer;
begin
writeln (‘Введите первое число m=’);
readln (m);
writeln (‘Введите второе число n=’);
readln (n);
while m<>n do
if m>n then m:=m-n
else n:=n-m;
nod:=m;
writeln(‘НОД = ‘, nod);
readln
end.
program nod2;
var
m, n: integer;
nod: integer;
begin
writeln (‘Введите первое число m=’);
readln (m);
writeln (‘Введите второе число n=’);
readln (n);
repeat
if m>n then m:=m-n;
if m then n:=n-m
until m=n;
nod:=m;
writeln(‘НОД = ‘, nod);
readln
end.
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введенных положительных и отрицательных…
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введенных положительных и отрицательных чисел.
program podschet_chisel_1;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
repeat
writeln (‘Введите целое число>>’);
readln (n);
if n>0 then k1:=k1+1;
if nthen k2:=k2+1;
until n=0;
writeln (‘Введено:’) ;
writeln (‘положительных чисел — ‘, k1);
writeln (‘отрицательных чисел — ‘, k2);
readln
end.
Задача 5. Даны натуральные числа n и k
Задача 5.
Даны натуральные числа n и k. Составить программу вычисления выражения 1k + 2k + … + nk. Для решения задачи нужно организовать два цикла, один из которых поместим внутрь другого. Такие конструкции называют вложенными циклами.
program dvazikla;
var
n,k,sum,d,i,j : integer;
begin
writeln(‘Введите значения n и k через пробел’);
readln(n,k);
sum:=0;
for i:=1 to n do
begin
d:= 1;
for j:=1 to k do
d:=d*i;
sum:= sum+ d;
end;
writeln(sum);
readln
end.
Задача 6. Проверить, является ли четырехзначное число счастливым билетом
Задача 6.
Проверить, является ли четырехзначное число счастливым билетом. Дано четырехзначное число. Проверить, является ли оно «счастливым билетом».
Счастливым билетом называется число, в котором: а) при четном количестве цифр в числе сумма цифр его левой половины равна сумме цифр его правой половины; б) при нечетном количестве цифр – то же самое, но с отбрасыванием серединной цифры.
program Schastliviy_bilet;
var
n: integer;
left, right: integer;
begin
writeln(‘Введите номер билета — четырёхзначное число’);
readln(n);
right := n mod 10;
n := n div 10;
right := right + n mod 10;
n := n div 10;
left := n mod 10;
n := n div 10;
left := left + n;
writeln(left=right);
if left=right then writeln(‘Билет является счастливым’)
else writeln(‘Билет не является счастливым’);
readln
end.
Program Summa_ch; Var a, i, sum, n: integer;
Program Summa_ch;
Var a, i, sum, n: integer;
Begin
Writeln(‘Введите количество чисел nReadln(n);
sum:=0;
For i:=1 to n do
Begin
Writeln(‘Введите число’);
Readln(a);
sum:= sum + a;
End;
Writeln(‘sum=’, sum);
readln
End.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – СУММУ чисел.
Напишите программу, которая в последовательности натуральных чисел определяет
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, КРАТНЫХ 4. В последовательности всегда имеется число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – СУММУ чисел, кратных 4.
Program Summa_ch1;
Var a, i, sum, n: integer;
Begin
Writeln(‘Введите количество чисел nReadln(n);
sum:=0;
For i:=1 to n do
Begin
Writeln(‘Введите число’);
Readln(a);
if a mod 4 = 0
then sum:= sum + a;
End;
Writeln(‘sum=’, sum);
readln
End.
Напишите программу, которая в последовательности натуральных чисел определяет
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, ОКАНЧИВАЮЩЕЕСЯ на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2.
Program Summa_ch2;
Var a, i, sum, n: integer;
Begin
Writeln(‘Введите количество чисел nReadln(n);
sum:=0;
For i:=1 to n do
Begin
Writeln(‘Введите число’);
Readln(a);
if a mod 10 = 2
then sum:= sum + a;
End;
Writeln(‘sum=’, sum);
Readln
End.
Напишите программу, которая в последовательности натуральных чисел определяет
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, чётных чисел. В последовательности всегда имеется чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – СУММУ чётных чисел.
Program Summa_ch3;
Var a, i, sum, n: integer;
Begin
Writeln(‘Введите количество чисел nReadln(n);
sum:=0;
For i:=1 to n do
Begin
Writeln(‘Введите число’);
Readln(a);
if a mod 2 = 0
then sum:= sum + a;
End;
Writeln(‘sum=’, sum);
Readln
End.
Подсчитайте, сколько среди данных
Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел.
program chisla;
var
n, a, i, k, l, m: integer;
begin
k := 0;
l := 0;
m := 0;
writeln (‘Введите количество чисел’);
read(n);
for i := 1 to n do
begin
writeln (‘Введите число’);
read(a);
if (a = 0) then
k := k + 1;
if (a > 0) then
l := l + 1;
if (a < 0) then
m := m + 1;
end;
writeln(k, ‘ ‘, l, ‘ ‘, m, ‘ ‘);
end.
Задача 12. Дано натуральное число
Дано натуральное число N. Определить наименьшую и наибольшую цифры данного числа
program chislo1;
var
a, b, c: integer;
begin
writeln (‘Введите число’);
read(a);
b := 10;
c := -10;
while a > 0 do
begin
if (a mod 10 > c) then
c := a mod 10;
if (a mod 10 < b) then
b := a mod 10;
a := a div 10;
end;
writeln(b, ‘ ‘, c);
read
end.
Задача 13. Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке
Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовательность завершается числом 0, при считывании которого программа должна закончить свою работу и вывести количество членов последовательности (не считая завершающего числа 0).Числа, следующие за числом 0, считывать не нужно
program posledov;
var
a, s: integer;
begin
s := 0;
writeln (‘Введите число’);
read (a);
while a <> 0 do
begin
s := s + 1;
read(a);
end;
writeln(s);
end.
Задача 14. Выведите все точные квадраты натуральных чисел, не превосходящие данного числа
Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N. Входные данные: задано единственное целое число N. Выходные данные: необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.
program kvadratchislo;
var
i, n: integer;
begin
writeln (‘Введите количество чисел’);
read(n);
for i := 1 to n do
if sqr(i) then
writeln(sqr(i));
readln
end.
Задача 15. Определите количество четных элементов в последовательности, завершающейся числом 0
Определите количество четных элементов в последовательности, завершающейся числом 0. Само число 0, и все, что следует за ним, учитывать не нужно.
program posvedchet;
var
a, k: integer;
begin
k := 0;
writeln (‘Введите число’);
read(a);
while a <> 0 do
begin
if (a mod 2 = 0) then
k := k + 1;
read(a);
end;
writeln(k);
end.
Материалы на данной страницы взяты из открытых истончиков либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
Источник: znanio.ru