Написать программу, которая запрашивает ваше имя и рост в сантиметрах

@Светлана25 · Регистрация: 17.02.2013

Написать программу, которая запрашивает ваше имя и рост в сантиметрах, а затем отображает информацию в виде: высокий (выше 180), средний (от 165 до 180), низкий (ниже 165).

@ilyadenisovid · 09.10.2013, 13:10

Pascal

program test;
var 
name1 : string;
height : integer;
begin
writeln('Vvedite vashe imya i rost cherez probel');
readln(name1, height);
if height < 165 then writeln(name1, ', vy nizkii');
if height > 180 then writeln(name1, ', vy vysokii');
if (height > 165) and (height < 180) then writeln(name1, ', vy srednii');
readln;
end.

@Светлана25 · 09.10.2013, 14:15 **[ТС]**

нужно через цикл case

@ilyadenisovid · 09.10.2013, 14:27

Pascal

program test;
var 
name1, tex : string;
height : integer;
begin
writeln('Vvedite vashe imya');
readln(name1);
writeln('Vvedite vash rost');
readln(height);
case height of
0..164 : tex := concat(name1, ', vy nizkii');
180..230 : tex := concat(name1, ', vy vysokii');
165..179 : tex := concat(name1, ', vy srednii');
end;
writeln(tex);
readln;
end.

@Светлана25 0 / 0 / 0 Регистрация: 17.02.2013 Сообщений: 73
		1
	Написать программу, которая запрашивает ваше имя и рост в сантиметрах 09.10.2013, 12:49. Просмотров 7990. Ответов 3 Метки нет (Все метки) Написать программу, которая запрашивает ваше имя и рост в сантиметрах, а затем отображает информацию в виде: высокий (выше 180), средний (от 165 до 180), низкий (ниже 165). 0

@Светлана25 0 / 0 / 0 Регистрация: 17.02.2013 Сообщений: 73
	09.10.2013, 14:15 [ТС]	3
	нужно через цикл case 0

Опции темы