Pascal Abc
10-11 класс
|
Вот программа, которая высчитывает степень числа:
var x,y,st,i,:integer;
begin
st:=1;
write('число:');
readln(y);
write('степень:');
readln(x);
for i:=1 to x do
st:=st*y;
writeln('результат::',st);
end.
Как в этот код добавить: "Если число > 10, то программа должна вывести на экран: "Введите другое число" "
if y>10 then writeln('cdccxc') else begin
for i:=1 to x do ....
......
end;
Другие вопросы из категории
сообщение,что значение Y не существует
ПРИПИШИТЕ ДВЕ ЦИФРЫ МЕСЯЦА(НАПРИМЕР,ДЛЯ ДАТЫ 02.03.93 ИСКОМОЕ ЧИСЛО 203)ЕСЛИ ДЕНЬ В ДАТЕ РОЖДЕНИЯ-ЧИСЛО ОТ 10 ДО 31,ТО К ДВУМ ЦИФРАМ ИЗ ОБОЗНАЧЕНИЯ ДНЯ ПРИПИШИТЕ ВТОРУЮ ЦИФРУ ИЗ ОБОЗНАЧЕНИЯ МЕСЯЦА(НАПРИМЕР,ДЛЯ ДАТЫ 23.11.93 ИСКОМОЕ ЧИСЛО 231) мОЯ ДАТА РОЖДЕНИЯ 30.05.95
дискретность, понятность 3). дискретность, массовость, понятность, результативность 4). однозначность, дискретность, точность, понятность, результативность, массовость 5). однозначность, дискретность, точность, понятность, результативность
Читайте также
получить от 5 до 15 баллов (Сгенерить случайные числа
Смотрим фотку!
Спасибо заранее!
p.s.
Где П- произведение.
Программа Pascal ABC