Предмет: Информатика, автор: prozorovkirill65

составте программу которая будет вводить 10 числ и подсчитывать количество пятерок среди этих чисел
Пример ввода:
1
6
10
5
7
42
5
9
5
11
Пример Вывода:
3


KnowsUser1: На каком языке?
prozorovkirill65: Паскаль
prozorovkirill65: Поможешь?
csharp: Кирилл, у вас было много времени исправить задание. В следующий раз не поленитесь написать язык, на котором вам необходимо сделать задачу. По устоявшимся здесь правилам, если человек не пишет язык в условии, значит отвечающий вправе выбирать на свой вкус.
prozorovkirill65: Это какой язык?

Ответы

Автор ответа: RedFoxz
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;

}


prozorovkirill65: И что мне теперь делать, с этим ответом?
RedFoxz: Чем не помогать, лучше сделать попытку помощи. А сейчас, вы можете просто вручную перевести всё на ваш язык.
prozorovkirill65: Как?
RedFoxz: Я сейчас почитал, в вашем языке, вместо "=" ставится ":=" . Вместо "cin" ставится "readln". И так далее.
prozorovkirill65: Да тут вообще ничего не понятно
RedFoxz: Тогда, полагаю, вы ученик 5 класса?
prozorovkirill65: 11
prozorovkirill65: Но я в информатике не шарю
prozorovkirill65: Мне она нафиг не нужна
RedFoxz: В любых языках, различия составляют лишь операторы ввода и вывода. А так же операции присвоения. Что ж, в таком случае, ждите ответ другого человека.
Автор ответа: KnowsUser1
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.

Объяснение:


prozorovkirill65: Вот это написано в загаловке ошибок
prozorovkirill65: Заголовке*
csharp: 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.
csharp: Вот так попробуйте.
prozorovkirill65: Неа
KnowsUser1: Вы пробовали копировать код с pastebin?
prozorovkirill65: НЕт
KnowsUser1: Попробуйте. Сервис Pastebin создан для упрощённого обмена участками кода между разработчиками, код оттуда копируется без нареканий. Ссылку я оставлял выше
csharp: Либо загрузите скриншот на prnt.sc и киньте сюда.
KnowsUser1: Вот скриншот-доказательство того, что программа функциональна. Код + консольный вывод http://prntscr.com/p9x5ad
Похожие вопросы
Предмет: Математика, автор: Аноним