Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

var s, k:integer; begin s:= 1; for k:= 1 to 7 do s:= s + k; writeln (s); end.

10-11 класс

Kissku 16 сент. 2013 г., 16:49:15 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Kovr1k
16 сент. 2013 г., 18:51:56 (10 лет назад)

Программа суммирует числа от 1 до 7, и после этого выводит получившееся  значение на экран. Возможно там ошибка, должно быть s:=0. Если s:= 1; то программа суммирует числа от 1 до 7 +1

Ответить

Другие вопросы из категории

Задача № 1

Тронувшись с места, автомобиль каждую секунду увеличивает скорость на а км/ч.
На этом участке дороги существует ограничение V км/ч. Выяснить, через сколько полных секунд автомобиль превысит предельно допустимую скорость V?
Задача №2
Даны действительные числа а, b, c. Определить, можно ли построить треугольник со сторонами а, b, c или нет
Язык ПАСКАЛЬ =)

Напишите программу. (в Паскале)

Дан радиус (R) окружности. Найти длину окружности (С) и площадь круга (S). С=2 ПR. S=ПR^2

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

Помогите ,пожалуйста,составить блок-схему. Program qqq; Var a:array[0…9] of byte; n,k: integer; j: byte; begin readln(n); for j:=0 to 9 do a[j]:=0;

while n>0 do begin k:=n mod 10; n:=n div 10; inc (a[k]); end; for j:=0 to 9 do if a[j].0 then writeln (j, a[j]); for j:=0 to 9 do if a[j]=0 then writeln(j); end.

Помогите составить блок схему к задачи Pascal

program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =',p);
end;
readln;
end.



Вы находитесь на странице вопроса "var s, k:integer; begin s:= 1; for k:= 1 to 7 do s:= s + k; writeln (s); end.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.