1)var s;k: integer;begins:=4;for k:=1 to 3 dos:=s+2*k;write (s);end2)var s;k;I:

1)
var s;k: integer;
begin
s:=4;
for k:=1 to 3 do
s:=s+2*k;
write (s);
end
2)
var s;k;I: integer;
begin
s:=3;
I:=3*s;
for k:=3 to 9 do
s:=s+I;
write (s);
end

Задать свой вопрос
Николай
сущность вопроса?
Колька
решить отыскать s
Тоха Кокичков
Что решать то?, в программах просто синтаксические ошибки: нет "." перед заключительными "end" и переменные делятся ",", а не ";"
2 ответа
1)16
2)ты точно верно переписал?
Ева Чунина
2)66
//1)
var
  s, k: integer;

begin
  s := 4;
  for k := 1 to 3 do
    s := s + 2 * k;
  write(s);// s = 16
end.
//2
var
  s, k, I: integer;

begin
  s := 3;
  I := 3 * s;
  for k := 3 to 9 do
    s := s + I;
  write(s);// s = 66
end.
Merlushkin Arsenij
2)66
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт