Найти сумму целвх положительных чисел кратных 4 и меньше 100

//Pascal ABC.NET v3.0 сборка 1111

Var
 i,s:integer;
begin
s:=0;
 for i:=1 to 99 do
 if i mod 4=0 then s:=s+i;
write(s);
end.

ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

#include

#include

using namespace std;

int main(int argc, char** argv) {

    int num, n, co;

    cout< < "number? "<

    cin> > num;

    cout< < "cifra? "<

    cin> > n;

    int count = 0;

    for (; num> 0; count++) {

        num /= 10;

    }

    for (int i = 0; i < count; i++) {

        if (num[i] == n) {

            co++;

        }

    }

    cout< < "number of "<

    return 0;

}

объяснение:

program vt;

 

type toy = record     // тип игрушка

      name : string;   // название

      price : integer;     // стоимость

      age : integer;         // возрастные границы

      a: boolean;

end;

 

var

    f : text; // переменая для работы с файлом

    i : integer; // счетчик

    size : integer;   // кол. игрушек

    maxage : integer; // макс. возрастная граница

    maxprice : integer;     // макс цена игрушки

    mas : array [1..100] of toy;   // контейнер игрушек

   

begin

      assign(f, 'input.txt');   // связываем переменную с файлом

      reset(f);               // открываем файл на чтение

      i : = 1;                 // 1 игрушка

      maxprice : = 400;         // макс цена = 400

      maxage: =5;                 //макс. возрастная граница = 5

      while (not eof(f)) do   // пока не дошли до конца файла

      begin

          readln(f, mas[i].name);     // считываем данные об игрушке

          readln(f, mas[i].price);

          readln(f, mas[i].age);

          maxage > mas[i].age;   //найти все до 5 лет

          writeln

         

      end;

end.