Программа рабочая, скорее всего ты просто вводил элементы в строчку, а у тебя стоит в чтении переход на новую строку(окончание LN), и паскаль просто не видел никакие числа, кроме первого.
И очень муторный и непонятный код, я переписал немножко:
var
col, a: integer;
begin
col := 0;Read(a);
while a <> 0 do
begin
read(a);
if (a mod 3 = 0) and (a mod 2 = 0) then
col := col + 1;
end;
writeln('количество ', col);
end.
Пример:
6 12 9 36 0
количество 3
#include <iostream>
using namespace std;
int main()
{
int n, ans = 0;
cin >> n;
vector <int> f(n);
for (int i = 0; i < n; i++)
{
cin >> f[i];
if (f[i] % 2 == 0) ans++;
}
cout << ans;
return 0;
}
язык - c++
1.Справочная система предназначена для получения пользователем максимально точной информации по интересующей теме.
Миле не хватило 2 рублей, следовательно если Оля и Ира добавили бы эти 2 рубля
альбом можно было бы купить, но по условию этого не случилось.
значит у Оли с Ирой вместе не было 2 рублей.
если у Оли х рублей, а у иры y/
тогда х+34=y+35
x+y<2
x-y=1
2x<3
x<1,5
если стоимость альбома целое тогда альбом стоит 35.
у Иры 33. у оли -1 рубль.
если ответ нецелое то стоимость Альбома 35<=S<35,5
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main(void)
{int n,k,m,val,i;
val=1; //val-ценность одной части
scanf("\%d \%d \%d",&n,&m,&k);
i=2;
while(k/(i*n)!=0)
{i++;
val++;}
printf("\%d",m/val+m\%val);
return 0;}
Пример ввода:
4
5
9
Пример вывода:
3