Var
a,b,i,c: integer;
Begin
Write('Введите А ');
Readln(a);
Write('Введите B ');
Readln(b);
for i:= 1 to (b-a+1) do Begin
c:=c+a*a;
a:=a+1;
End;
End.
Program fff;
var i, n, c : integer;
begin for i := 1 to 15 do begin readln(n); if n mod 10 = 4 then c := c + 1; end; writeln(c);end.
Program mas;
const n=4; // число элементов
var a: array [1..n] of integer; //массив
i, sum: integer; //переменные
begin //начало
sum:=0; // сумма=0
for i:=1 to n do readln(a[i]); //вводим массив
for i:=1 to n do //цикл
if(a[i] mod 2 <>0) then //условие нечетности
begin
writeln(a[i]); //выводим нечетные
sum:=sum+a[i]; //считаем сумму
end;
writeln(sum); //выводим сумму
end. //конец
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ReadArrInteger(ReadInteger('n='));
var d:=ReadInteger('d=');
Writeln('Среднее ',a.Where(x->x>d).Average)
end.
<u><em>Тестовое решение:</em></u>
n= 8
6 3 -1 12 11 9 7 4
d= 8
Среднее 10.6666666666667
Зачем две одинаковые фунции?
Если комплилятор визуал студио , то первой библиотека должна быть #include "stdafx.h" .
Смысл от #include "pch.h" ?
Вот без ошибок решение:
#include "stdafx.h"
#include<iostream>
#include<cstdlib>
#include<ctime>
using namespace std;
int main()
{
srand(time(0));
for (int x = 1; x <= 10; x++)
cout << 1 + (rand() % 6) << endl;
}