Напишите программу, которая вводит с клавиатуры натуральное число N и выводит квад-рат из символов «o» размером N´N:
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!
Примеры
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
2) Можно через double. Но после 170! уже бесконечность.
var n:Integer;
var b:double;
begin
b:=1;
Read(n);
for var i:= 1 to n do
b*=i;
WriteLn(‘factorial ‘+n+’ = ‘+b);
end.
3) Работает как и с числами так и со строками.
var arr:array of char;
var a:String;
var first,last:Integer;
begin
Read(a);
arr:= a.ToCharArray();
for var i:= 0 to arr.Length-1 do
begin
first:=Pos(arr[i], a);
last:=Pos(arr[i], a,first+1);
if (first>0) and (last > 0) and (first<>last) then
begin
first:=99;
break;
end;
end;
if first = 99 then
WriteLn(‘Содержит. Это число ‘+arr[last-1])
else
WriteLn(‘Несодержит.’);
end.
begin
readln(a);
foreach e: char in a.ToString() do //Проходит по каждому символу в строке, полученной путём преобразования числа
if (Byte.Parse(e) mod 2 = 0) then
inc(b); //Увеличивает значение на 1
writeln(b);
end.
2 в файле
3)
var
a, n: integer;
begin
readln(a, n);
writeln(power(a, n)); //power возводит число в указанную степень
end.
Требуется вывести на консоль квадрат из символов размера N × N / C++
Решить с помощью двух вложенных циклов, каждая итерация которых выводит определённый символ. Необходимо только определить, как зависит выводимый символ от номера строки и столбца. Таким образом, программа должна иметь следующий вид:
С помощью цифр должны быть нарисованы вложенные квадраты, причем внешний квадрат должен быть изображен с помощью символа 0 , следующий с помощью 1 и так далее.
Например, N= 9:
Напишите программу которая вводит с клавиатуры натуральное число n и выводит квадрат из символов
Опубликовано 13.06.2017 по предмету Информатика от Гость >>
Ответ оставил Гость
Procedure sq(n: integer);
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
write(*);
writeln();
end;
end;
var n: integer;
begin
readln(n);
sq(n);
end.