1)
var sum, number, n: integer;
begin
sum := 0;
number := 1;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
sum := sum + number;
number := number + 2;
end;
write('Сумма равна ', sum);
end.
2)
var prod, number, n: integer;
begin
prod:= 1;
number := 3;
write('Введите n: ');
readln(n);
while (number <= n) do
begin
prod := prod * number;
number := number + 3;
end;
write('Произведение равно ', prod);
end.
3)
var number, n: integer;
begin
number := 1;
write('Введите n: ');
readln(n);
writeln('Таблица:');
while (number <= n) do
begin
writeln(number:5, number*number:5, number*number*number:5);
number := number + 1;
end;
end.
Мак, мелисса.
Василек, вереск.
Дуб, дионея
//C++ - язык програмирования(не Pascal)
#include <iostream> //чтобы выводить на экран
int main() //тело программы
{
int a,b; //те числа(объявление переменных)
std::cin>>a; //ввод первого числа
std::cin>>b; //ввод второго числа
std::cout<<((int)(a/b))<<std::endl; //(int)х - преобразовать х в целое число(отбросить //дробную часть)
//std::cout<< - вывод
//std::endl - переход на следующию строчку
system("PAUSE"); //чтобы программа сразу не завершалась
return 0;
}
// // - коментарий
P.S ответь, пожалуйста, на моё сообщение.
Бережливым быть умей,
И по клавишам не бей,
Там, учтите этот факт,
Если вводишь ты ответ,
А компьютер скажет "Нет",
По дисплею не стучи,
Лучше правила учи!
Разрешать работу строго
С разрешения педагога,
И учтите : вы в ответе,
За порядок в кабинете!!
