составте программу которая будет вводить 10 числ и подсчитывать количество пятерок среди этих чисел
Пример ввода:
1
6
10
5
7
42
5
9
5
11
Пример Вывода:
3
KnowsUser1:
На каком языке?
Паскаль
Поможешь?
Кирилл, у вас было много времени исправить задание. В следующий раз не поленитесь написать язык, на котором вам необходимо сделать задачу. По устоявшимся здесь правилам, если человек не пишет язык в условии, значит отвечающий вправе выбирать на свой вкус.
Это какой язык?
Ответы
Ответ дал:
0
Не указан язык. Сделаю на c++
#include <iostream>
using namespace std;
int main(){
int x,i=0,k=0;
while(i<10){
cin >> x;
if(x==5) k++;
i++;
}
cout << k;
return 0;
}
И что мне теперь делать, с этим ответом?
Чем не помогать, лучше сделать попытку помощи. А сейчас, вы можете просто вручную перевести всё на ваш язык.
Как?
Я сейчас почитал, в вашем языке, вместо "=" ставится ":=" . Вместо "cin" ставится "readln". И так далее.
Да тут вообще ничего не понятно
Тогда, полагаю, вы ученик 5 класса?
11
Но я в информатике не шарю
Мне она нафиг не нужна
В любых языках, различия составляют лишь операторы ввода и вывода. А так же операции присвоения. Что ж, в таком случае, ждите ответ другого человека.
Ответ дал:
1
Ответ:
program Help;
type
input = Array[1..10] of integer;
var
a: input;
i : byte; //iterator
counter : byte;
begin
counter := 0;
writeln('Input 10 numbers, sep - "Enter" button');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
begin
if a[i] = 5 then
counter+=1;
end;
writeln(counter);
end.
Объяснение:
Вот это написано в загаловке ошибок
Заголовке*
program Help;
type
input = Array[1..10] of integer;
var
a: input;
//i : byte; //iterator
counter : byte;
begin
counter := 0;
writeln('Input 10 numbers, sep - "Enter" button');
for var i:=1 to 10 do
readln(a[i]);
for var i:=1 to 10 do
begin
if a[i] = 5 then
counter+=1;
end;
writeln(counter);
end.
type
input = Array[1..10] of integer;
var
a: input;
//i : byte; //iterator
counter : byte;
begin
counter := 0;
writeln('Input 10 numbers, sep - "Enter" button');
for var i:=1 to 10 do
readln(a[i]);
for var i:=1 to 10 do
begin
if a[i] = 5 then
counter+=1;
end;
writeln(counter);
end.
Вот так попробуйте.
Неа
Вы пробовали копировать код с pastebin?
НЕт
Попробуйте. Сервис Pastebin создан для упрощённого обмена участками кода между разработчиками, код оттуда копируется без нареканий. Ссылку я оставлял выше
Либо загрузите скриншот на prnt.sc и киньте сюда.
Вот скриншот-доказательство того, что программа функциональна. Код + консольный вывод http://prntscr.com/p9x5ad
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад
8 лет назад