Программы с for и while

@Lasi · Регистрация: 22.09.2010

Author24 — интернет-сервис помощи студентам

Помогите с задачками:
Найти все целые двух значные числа, которые при умножении на 3 заканчиваются на 5
Посчитать значение функции у=х2-3 на [-5,5] шаг изменения 1. Написать с for и while.
Спасибо

Добавлено через 21 минуту

Сообщение от Lasi

деляться на 5
у=х^2-3

Ошиблась

@John_Pa9JIbHuK · 22.09.2010, 17:57

1)

Pascal

var
  i: integer;
begin
  while i <> 99 do begin
    inc(i);
    if (i * 3) mod 10 = 5 then
      writeln(i);
  end;
end.

Добавлено через 2 минуты
2)

Pascal

var
  i, y: integer;
begin
  for i := -5 to 5 do begin
    y := sqr(i) - 3;
    writeln(y);
  end;
end.

@iama · 22.09.2010, 17:57

Pascal

var i: integer;
begin
for i := -5 to 5 do
  write(i*i-3, ' ');
readln;
end.

@Lasi · 22.09.2010, 20:12 **[ТС]**

Pascal

program p3;
var i,n:integer;
begin
for i:=10 to 99 do
begin
n:=1*3;
if n mod 5=0 then
write(i,' ');
end;
readln;
end.

Такая пойдет для "Найти все целые двух значные числа, которые при умножении на 3 заканчиваются на 5"? Запустила - работает, а вот ваши почему то при нажатии на run не выполняет.

Добавлено через 18 минут

Сообщение от iama

Pascal

var i: integer;
begin
for i := -5 to 5 do
  write(i*i-3, ' ');
readln;
end.

Спасибо, а можно еще с while?

@iama · 22.09.2010, 20:17

Pascal

var i: integer;
begin
i = -5;
while i < 6 do begin
  write(i*i-3, ' ');
  i := i + 1;
end;
readln;
end.

@Lasi · 22.09.2010, 20:24 **[ТС]**

Спасибо.

@Lasi 0 / 0 / 1 Регистрация: 22.09.2010 Сообщений: 5
		1
	Программы с for и while 22.09.2010, 17:03. Показов 2871. Ответов 5 Метки нет (Все метки) Помогите с задачками: Найти все целые двух значные числа, которые при умножении на 3 заканчиваются на 5 Посчитать значение функции у=х2-3 на [-5,5] шаг изменения 1. Написать с for и while. Спасибо Добавлено через 21 минуту Сообщение от Lasi деляться на 5 у=х^2-3 Ошиблась 0

@Lasi 0 / 0 / 1 Регистрация: 22.09.2010 Сообщений: 5
	22.09.2010, 20:24 [ТС]	6
	Спасибо. 0