Составить программу, которая посчитает кол-во чётных чисел на промежутке от 1 до 145
10-11 класс
|
var i,kol:integer;
begin
kol:=0;
for i:=1 to 145 do
if not odd(i) then inc(kol);
writeln(kol);
end.
Другие вопросы из категории
дорожке №3?и след. задачи на фото...нужно на завтра
Var A:array[1..6,1..6] of integer;
X:array[1..6] of byte;
i,j,n:byte;
sum:longint;
Begin
write('Введите кол-во строк N: ');
readln(n);
sum:=0;
For i:=1 to n do
Begin
For j:=1 to n do
Begin
write (vvedite matricy A[i,j]: ') ;
write(A[i,j]:4);
sum:=sum+A[i,j];
End;
if (A[i,i])>(A[i,j]) then x[i]:=0
else x[i]:=1;
writeln;
End;
writeln ('Полученный массив');
For i:=1 to n do
write(X[i]:2);
writeln;
writeln('сумма матрицы = ', sum);
readln;
End.
целочисленный массив 10 на 10.Выведите на экран четвертую строку массива.
2)Дан целочисленный массив,содержащий n элементов и заполненный с клавиатуры.Найти наибольшее значение элемента массива.
Читайте также
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.