Вычислить QBasic. Даны числа от 1 до 100, вычислить их сумму.

Знания

Информатика

1 ответ:

Владимир Давыдович [7]4 года назад

0 0

CLS
S = 0
FOR i = 1 TO 100
S = S + i
NEXT i
<span>PRINT "S=", S

</span>

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

СРОЧНО! Составить программу, содержащую ветвления и определяющую, принадлежит ли точка с координатами (X,Y) заштрихованной облас

Фурманова Екатери...

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.

Пример:
x = 3
y = 2
Да

0 0

3 года назад

Написать программу в free pascal Задача на массивы Срочно!

Yulia Kon

Это ведь очень просто

0 0

4 года назад

Если число, введенное с клавиатуры, четырехзначное и делится на 5, то выведите слово «SUCCESS», а иначе — «FAILURE». язык С++ Ко

Анастасия2397 [7]

Как вариант - сначала избавится от знака, потом проверять на кол-во разрядов. Т.е.
If (a < 0) a *= -1;

Или можно использовать cmath:
#include <cmath>
a = abs(a);

0 0

4 года назад

Песня "Smoke on the water" из альбома группы Deep Purple "Machine Head" имеет размер 13 677 934 байт. Качество музыки составляет

edgar1991 [50]

Решение:
1) 1 килобит = 125 байт,
320*125=40000
2) 13 677 934/40000 = 341,94835 = 342 сек
Ответ: 342 секунды; 5 минут 42 секунды.

0 0

4 года назад

Помогите хоть какое нить задание сделать, чот вообще не понимаю

ser-nik

Var a:integer;
begin
writeln('Введите сторону куба');
readln(a);
writeln('Объем куба с ребром ',a,' равен — ',a*a*a);
writeln('Площадь поверхности куба равна — ', 6*a*a);
<span>end.

</span>

0 0

4 года назад