Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10

@borlogg · Регистрация: 15.02.2014

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

Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10.

задача на цикл while

@code-n'-help · 19.02.2014, 23:00

Просто

Pascal

a:=0;
while a<>7 do
begin
read(a);
if a>10
then Write(a*a, ' ');
end;

@borlogg · 19.02.2014, 23:20 **[ТС]**

code-n'-help,

Код

Program ooo;
uses Crt;
var a:integer;
begin
a:=0;
while a<>7 do
read(a);
if a>10 then 
Write(a*a, ' ');
end.

ТОлько она не выводит квадраты чисел,котрые больше 10,в чем ошибка?

@code-n'-help · 19.02.2014, 23:36

секунду гляну

Добавлено через 2 минуты
а может ты then и writeln в один строку поставиШЬ?

Добавлено через 15 секунд

Pascal

var a:integer;
begin
  a:=0;
while a<>7 do
begin
read(a);
if a>10
then Write(a*a, ' ');
end;
end.

Добавлено через 6 минут
У меня всё прекрасно работает

@borlogg · 19.02.2014, 23:36 **[ТС]**

code-n'-help, Спасибо!!!!!Дело не в then, а в недостающем begin и end!

@code-n'-help · 19.02.2014, 23:38

ДА БЛИН Я ЖЕ НАПИСАЛ КОД И ВСТАВЬ ЕГО МЕЖДУ БЕГИН ЕНДОМ Я ЖЕ В ЕНДЕ ПОСТАВИЛ ТОЧКУ С ЗАПЯТОЙ А ЭТО НЕ КОНЕЦ ПРОГРАММЫ!!!!!!!!! ПОСТАВЬ В 7 8 и 8 СТРОКЕ КАК ТЕЛО ЦиКЛА!

Добавлено через 19 секунд
да всё, не за что

Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10

Решение

Решение

@borlogg 0 / 0 / 0 Регистрация: 15.02.2014 Сообщений: 90
		1
	Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10 19.02.2014, 19:31. Показов 1440. Ответов 5 Метки нет (Все метки) Вводить числа, пока не встретится 7. Найти квадраты тех чисел, которые больше 10. задача на цикл while 0

@borlogg 0 / 0 / 0 Регистрация: 15.02.2014 Сообщений: 90
	19.02.2014, 23:20 [ТС]	3
	code-n'-help, Код Program ooo; uses Crt; var a:integer; begin a:=0; while a<>7 do read(a); if a>10 then Write(a*a, ' '); end. ТОлько она не выводит квадраты чисел,котрые больше 10,в чем ошибка? 0

@borlogg 0 / 0 / 0 Регистрация: 15.02.2014 Сообщений: 90
	19.02.2014, 23:36 [ТС]	5
	code-n'-help, Спасибо!!!!!Дело не в then, а в недостающем begin и end! 0

@code-n'-help Форумчанин Паскаля 77 / 90 / 55 Регистрация: 08.11.2013 Сообщений: 399 Записей в блоге: 2
	19.02.2014, 23:38	6
	ДА БЛИН Я ЖЕ НАПИСАЛ КОД И ВСТАВЬ ЕГО МЕЖДУ БЕГИН ЕНДОМ Я ЖЕ В ЕНДЕ ПОСТАВИЛ ТОЧКУ С ЗАПЯТОЙ А ЭТО НЕ КОНЕЦ ПРОГРАММЫ!!!!!!!!! ПОСТАВЬ В 7 8 и 8 СТРОКЕ КАК ТЕЛО ЦиКЛА! Добавлено через 19 секунд да всё, не за что 0

Опции темы