Всё что сможете! 5) с repeat напишите программу, которая требует у вас пароль, например 111. если пароль правильный, то заполняет все строки экрана сообщением «молодец». если после пятой попытки пароль все равно неверен, выходит из программы. (2 ) 21) составьте программу вычисления степени числа a с натуральным показателем n. записать варианты программы со всеми циклов: while, repeat, for. (3 ) 27) составьте программу, которая выводит полную запись десятичного числа 42*4*, в которой пропущены две цифры (обозначены *), если известно, что данное число кратно 72. (4 ) 1) найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2, 3, 4, 5, 6, 7, 8, 9. 2) найти все трехзначные числа, сумма цифр которых равна данному целому числу. 3) найти все трехзначные числа, средняя цифра которых равна сумме первой и второй цифр. 4) найти все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры. 5) найти все двузначные числа, сумма квадратов цифр которых делится на 17. 6) найти все трехзначные числа, представимые в виде сумм факториалов своих цифр. 7) найти двузначное число, тем свойством, что куб суммы его цифр равен квадрату самого числа. 8) найти двузначное число, равное утроенному произведению его цифр. 9) в каких двузначных числах удвоенная сумма цифр равна их произведению? 10) можно ли заданное натуральное число м представить в виде суммы квадратов двух натуральных чисел? написать программу решения этой .
Ответы
1)
const n = 4; m = 4;
var A:array[1..n, 1..m] of integer;
i, j, iMax, jMax:integer;
begin
write('Заполнение - Матрица:');
for i:=1 to n do begin
for j:=1 to m do begin
read(a[i, j])
end;
end;
write('Матрица:');
for i:=1 to n do begin
writeln;
for j:=1 to m do begin
write(a[i, j]:3, ' ');
end;
end;
iMax:=1;
jMax:=1;
for i:=1 to n do
for j:=2 to n do begin
if a[i, j] > a[iMax, jMax] then begin
iMax:=i;
jMax:=j;
end;
end;
writeln;
writeln('Максимальный элемент: A[', iMax, ', ', jMax, ']=', a[iMax, jMax]);
end.
Вторую не успел сделать, надо уехать.
Объяснение:
/** libraries */
#include <iostream>
#include <cmath>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <stack>
#include <algorithm>
/** libraries */
using namespace std;
/** defines */
#define ll long long
#define ld long double
#define yes cout << "YES" << "\n"
#define no cout << "NO" << "\n"
/** defines */
signed main() {
ios_base::sync_with_stdio(false);
cin.tie(nullptr);
cout.tie(nullptr);
ld a;
cin >> a;
if(a > 0)
a += 20;
cout << a;
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
вычислить значении функции y=f(x) c тестами программы в Паскаль
Опишите понятия ссылка и гиперссылка. ! !
