сервис вопросов и ответовНапишите пожалуйста, что будет делать эта программа (пошагово) Var s,k: integer; Begin s := 8; for k := 3 to 8 do s := s + 8; writeln(s); End.
5-9 класс|
|
Свилтив
13 авг. 2016 г., 7:55:56 (7 лет назад)
Pominovaliza
13 авг. 2016 г., 9:13:54 (7 лет назад)
Сначала переменной s присвоит значение 8, потом 8-3+1=6 раз будет выполнять действие s:=s+8 тоесть 6 раз к s прибавит 8. Потом выведет на экран переменную s(56) на экран.
Дмитрий966
13 авг. 2016 г., 10:32:55 (7 лет назад)
алг задача1
цел s,k
нач
если s:=8
k:=3
то с:=8
иначе s:=s+8
нц
вывод s
кон
Ответить
Другие вопросы из категории
Составьте программу,определяющую номер координатной четверти,в которой находится точка с координатами(x,y).Числа x,y введите с клавиатуры.
Пример ввода:
-5 7
Пример вывода:
2
ОТМЕТЬТЕ И ПОСЛЕДОВАТЕЛЬНО СОЕДИНИТЕ НА КООРДИНАТНОЙ ПЛОСКОСТИ ТОЧКИ КООРДИНАТЫ КОТОРЫХ ПРИВЕДЕНЫ В ДВОИЧНОЙ СИСТЕМЕ СЧИСЛЕНИЯ
ДВОИЧНЫЙ КОД ДЕСЯТИЧНЫЙ КОД
101,101 ?
101,101000 ?
11001,101000 ?
11001,101 ?
10100,11110 ?
1010,101 ?
101,101 ?
ПЛИЗ ПРОШУ ОЧЕНЬ НАДО
Читайте также
Какое значение будет принемать значение Y после выполнения фрагментов программы: 1. var x,y: INTEGER; BEGIN y:=0; for x:=1
to 9 do
y:=y+x;
writeln(y=,y);
END.
2.var x,y: INTEGER;
BEGIN
y:=0;
for x:=10 downto 5 do
y:=y+1
writeln(y=,y);
END
3. var x,y: INTEGER;
BEGIN
y:=1;
x:=15;
while x>5 do
begin
x:=x-3;
y:=y*x;
end;
writeln(y=,y)
END.
4. var x,y: INTEGER;
begin
y:=1;
x:=10;
repeat
y:=y*x+x;
x:=x-2;
until x<0;
writeln(y=,y);
end.
пожалуйста напишите подробное решение и как получаются ответы
Подскажите пожалуйста,что мне делать.У меня не заходит вконтакт с моего ноутбука.А с маминого компа заходит.Я много прочитала про то,что в файле hosts
оставить только 127.0.0.1localhost,но там совершенно пусто.Он ни на что не реагирует,если я нажимаю на кнопки "Забыли пароль?" и "Регистрация" ничего не происходит.У меня наверное какой-то вирус.Может установить антивирусник какой-нибудь?У меня стоит аваст и майксофофт секюрити.Помогите мне пожалуйста!!Что мне сделать?
Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal: 1) Определить, что будет напечатано
в результате работы следующего фрагмента программы:
var k,s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=K+1;
end;
write(s);
end.
1.1 Запишите этот же фрагмент с помощью оператора Repeat...until
2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n]:=n-10;
for n:=1 to 100 do
B[n]:=A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
а)10 б)50 в)90 г)100
Помогите, пожалуйста, выполнит задания, связанные с Turbo Pascal: 1) Определить, что будет напечатано
в результате работы следующего фрагмента программы:
var k,s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=K+1;
end;
write(s);
end.
1.1 Запишите этот же фрагмент с помощью оператора Repeat...until
2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n]:=n-10;
for n:=1 to 100 do
B[n]:=A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
а)10 б)50 в)90 г)100
Определите, что будет напечатано в результате выполнения следующего алгоритма:
Var s,k: integer;
begin
s:= 100
k:=7
repeat
s:= s-k
k:=k+1
Until k>10
writeln( s+k)
end.
Пожалуйста объясните как вывести отсюда результат
Вы находитесь на странице вопроса "Напишите пожалуйста, что будет делать эта программа (пошагово) Var s,k: integer; Begin s := 8; for k := 3 to 8 do s := s + 8; writeln(s); End.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.