Помогите сделать и поясните пожалуйста просто не могу понять. Вывести на экран квадраты чисел в интервале от а до в с шагом 3 с помощью while
5-9 класс
|
var a,b,i:integer;
begin
readln(a,b); {считываем а и b}
i:=a; {задаем начальное значение}
while i<b do begin {используем цикл while}
writeln(sqr(i)); {выводим квадарат числа}
i:=i+3; {шаг - 3}
end; {крутим, пока i не будет равно b или будет больше его}
end.
Другие вопросы из категории
МКЛКМНОНОПРОСТ!
Определите информационный объём этого сообщения.
фото.
2)Пользователь работал с каталогом D:/Документы/фото/2011/весна. Сначало он поднялся на три уровня вверх, потом спустился в каталог экзамен и после этого спустился в каталог информатика. Укажите полный путь для того каталога в котором оказался пользователь.
var a,b,c:integer;
Begin и дальше пож
звука и видео в одном документе. Ответ обоснуйте
Читайте также
Задали сделать презентацию о Белке и Стрелке. Я работаю в "Презентация Microsoft PowerPoint" (в других не понимаю как, мне кажется эта наиболее удобная) и мне надо подобрать космический фон. Там, в "Дизайне" этой презентации ничего подобного нет. Я нашла в интернете подходящую картинку для фона, скачала ее на компьютер но я не знаю как ее вставить. Там есть "Шаблоны оформления на Microsoft Ofice Online", но там я ничего не поняла (написала "Космос", вышли несколько картинок, загрузила одну и теперь она неизвестно где) и есть "Шаблоны оформления: Дополнительные", там он просит найти фото. Я точно знаю куда я его загрузила. проверяю несколько раз, но он не находит. Помогите пожалуйста, 3 дня ответ не могу нигде найти!!!
А) 10000000010(2)-100000001(2)
Б) 1110111111(2)-1010001(2)
В) 1011001100,1(2)-100100011,01(2)
Г) 1110,62(8)-210,46(8)
Д) 1D8,D8(16)-110,4(16)
отрицательных, и не равных нуля. Задача решается через Turbo Pascal