Var a: integer;
begin
write('Введите число: '); read(a);
if((a div 10) = (a mod 10)) then writeln('Цифры одинаковые')
else writeln('Цифры не одинаковые');
end.
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
Ответ на 9 задание
1. купила картофель и сметану
2. почистила картофель
3. зажгла газовую плиту
4. налила в кастрюлю воду и поставила на огонь
5. бросила картошку в кастрюлю
6. посолила картошку
7. погасила огонь и слила воду выложила картофель на тарелку
8. полила картофель сметаной
{НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММУ ДЛЯ ПАСКАЛЯ:
1) Разработайте алгоритм для ввода в память ЭВМ линейной таблицы В,
состоящей из 8 элементов вещественного типа. Ввод организуйе без использования цикла
2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С
состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ".
3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д
состоящего из 10 элементов целого типа.
Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса}
var
B: array [1..10] of real;
C: array [1..10] of integer;
D: array [1..10] of integer;
i:integer;
begin
writeln('Введите 8 элементов В');
read(b[1], b[2], b[3], b[4], b[5], b[6], b[7], b[8]);
writeln('Введите 7 элементов C');
for i := 1 to 7 do read(C[i]);
for i := 1 to 10 do D[i] := i * i;
writeln();
for i := 1 to 8 do write(B[i], ' ');
writeln();
for i := 1 to 7 do write(C[i], ' ');
writeln();
for i := 1 to 10 do write(D[i], ' ');
end.