написать в паскале программу таблицы умнажения на 7
10-11 класс
|
program chik;
var i:integer;
begin
for i:=1 to 10 do
writeln(7,'*',i:2,'=',i*7:2);
end.
program Tablitca_na7;
var x,y: integer;
begin
for y:=1 to 10 do
begin
for x:=7 to 7 do
write(x,'x',y,'=',x*y,' ');
writeln;
end;
end.
program chik;
var i,j:integer;
a:array[1..10,1..10]of integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=i*j;
write(a[i,j]:3,' ');
end;
writeln;
end;
end. Это для общего случая
Другие вопросы из категории
Составьте программу, которая заполняет массив 10-ю случайными целыми числами в диапазоне [1..20] и выводит на экран элементы массива в нечетными значениями.
begin
a:=1; b:=2;
if (a>=1) and (b>=2) then n:=a+b else n:=a-b;
writeln ( n );
end.
буква шифруется двузначным или трехзначным числом, в зависимости от того
гласная она или согласная (при этом неясно двузначным кодом шифруются гласные
или согласные буквы). Буквы е и ё объединены. Среди слов "крейсер",
"уловка", "шалаш", "электричество",
"преподаватель", "молоко" есть слова, зашифрованные
следующими последовательностями: 2732101263310132, 391002810039,
104281032127100, 291032810327103. Каким кодом будет зашифровано слово «роутер»?
если a>b
то c=a-b
иначе c=a+b
d=1
пока c<a
нц
d=d+1
c=c+1
кц
все
Нарисовать блог-схему, и определить какие значения примут переменные "c" и "d" в результате выполнения данного фрагмента алгоритма с начальными значениями a=5, b=3
Читайте также
Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку , добавляя после каждого символа символ '0'.
даёт одну из надписей: «Получите суп», «Получите картошку», «Получите компот», «Оставайтесь голодным». Написать два варианта программы: с использованием условного оператора if и с использованием переключателя.
x=2
2) "нет решений", если x=0
3) 3x в квадрате минус 5, если X=3,4,5,6.
Задание 2) - Составить алгоритм и программу
Написать программу, которая определяет по последней цифре числа последнюю цифру его квадрата.
Прошу написать полное решение программы,
Спасибо Заранее
на входе и выводит сумму его цифр.
Я написал первую часть программы (без вывода суммы цифр) :
program sg3;
uses crt;
var i,a,k: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then k:=k+1;
if k=0 then write('Простое')
else writeln('Составное');
readln;
end.
Допишите пожалуйста код, который бы выводил сумму цифр,Паскаль