Составить программу в Pascal, используя цикл с счетчиком for ...

Question

Составить программу в Pascal, используя цикл с счетчиком for ...

Мария

Составить программу в Pascal, используя цикл с счетчиком for

1. Напечатать квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b>10)
2. Напечатать все целые числа от a до b (значения a и b вводятся с клавиатуры)

Есть ответ

17.12.2022

419

Ответ

Answer 1 · 17.12.2022

var i, b:integer;begin write('b = '); readln(b); for i := 10 to b do writeln(i, ' * ', i, ' = ', i*i); readln;end.

//вторая задача

var a, b, i:integer;begin write('a = '); readln(a); write('b = '); readln(b); for i := a + 1 to b - 1 do write(i, ' '); readln;end.

Составить программу в Pascal, используя цикл с счетчиком for ...

Ответ

var i, b:integer;begin write('b = '); readln(b); for i := 10 to b do writeln(i, ' * ', i, ' = ', i*i); readln;end. //вторая задача var a, b, i:integer;begin write('a = '); readln(a); write('b = '); readln(b); for i := a + 1 to b - 1 do write(i, ' '); readln;end.

var i, b:integer;begin write('b = '); readln(b); for i := 10 to b do writeln(i, ' * ', i, ' = ', i*i); readln;end.

//вторая задача

var a, b, i:integer;begin write('a = '); readln(a); write('b = '); readln(b); for i := a + 1 to b - 1 do write(i, ' '); readln;end.