Найти сумму всех целых чисел от 0 до b ( Значение b вводится с клавиатуры ) ( ABC Pascal ) 8 класс

Знания

Информатика

1 ответ:

KiborGEN4 года назад

0 0

var

b, i, sum : integer;

begin

readln (b);

sum:= 0;

for i:= 0 to b do

sum:=sum+i;

writeln (sum);

end.

Читайте также

1.Перевести в восьмеричную и шестнадцатеричную системы счисления следующие дробные числа: 0,01111(2), 1010101(2) 2. Перевести в

FomaZnaika [70]

1.1.1 0,01111 = 0.36 (8)
1.1.2 0,01111 = 0.78 (16)
1.2.1 1010101 = 125 (8)
1.2.2 1010101 = 55 (16)
------------------
2.1 101110
2.2 10111
2.3 11101111.0001001
---------------------
3.1 1101=D
3.2 0,11111>0,22
3.3 35,63 > 16,C

0 0

4 года назад

Дано N чисел. Найти самое большое число, на которое делятся все N чисел.

топки кемеровская...

#include <iostream>
using namespace std;

int main(){
int max,k,n,nod,p;
int ar[1000];
cin>>n;
for(int i=0;i<n;i++){
cin>>ar[i];
}
max=ar[0];
for(int i=1;i<n;i++){
if(ar[i]>max){
 max=ar[i];
 k=1;
 nod=1;}
}
while(k!=max){
k++;
p=0;
for(int i=0;i<n;i++){
if(ar[i]%k==0){
p++;}}
if(p==n){
nod=k;}
}
cout<<"NOD="<<nod;
cin.get();
cin.get();
return 0;
 }

0 0

4 года назад

Паскаль ABC Решить задачу и нарисовать блог схему

88Марина88

Взял от -10000
varx:real;beginreadln(x);if (x>=-10000) and(x<=-2) or(x>=1) and(x<=3) thenwriteln('vhodit')else writeln('ne vhodit');end.

0 0

4 года назад

Составить схему алгоритма и программу определения минимального элемента массива K[N] и его порядкового номера. И составить блок-

kunalchavan

Смотрите во вложении.
====================

0 0

3 года назад

Запишите значение переменной S полученное в результате работы следующей программы текст программы приведён на трёх языках програ

Гинерика

В цикле от 3 до 7 к s прибавляется 6,
Цикл от 3 до 7 выполнится 5 раз.
6 * 5 = 30.
Ответ = 30.

0 0

4 года назад