#include "math.h"
#include <stdlib.h>
#include "stdio.h"
#include "conio.h"
#include <iostream>
using namespace std;
int main()
{
using namespace std;
int N;
int count = 0;
setlocale(LC_ALL, "Russian");
cout << "Введите N : "; cin >> N;
for (int i = 0; i <= N; i++)
{
if (i % 5 == 0 && i!=0) count++;
}
cout << "Натуральных чисел,кратных 5-ти в данном ряду : "<< count;
cout << endl;
_getch();
}
Логическая схема находится во вложении.
Логическая функция по схеме:
Функция истинна при истинном х₁ и ложном х₂, т.е. в наборе варианта б). Для остальных вариантов она ложна.
Получаем для б) 1, для а), в), г) 0
Физика-5+4+4+5=18:4=4,5
Химия-3+4+3+4=14:4=3,5
Алгебра-4+4+3+4=15:4=3,75
Геометрия-4+3+3+3=13:4=3,25
Если надо округлять:
Физика:5
Химия:4
Алгебра:4
Геометрия:3
// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18
Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.