1 программа:
var a, sum:integer;
begin
writeln('Введите числа (цифра 0 - выход из программы)');
sum:= 0;
readln(a);
while(a <> 0) do begin
sum:= sum + a;
readln(a);
end;
writeln('Сумма чисел = ', sum);
end.
2 программа:
var a, sum:integer;
begin
a:=0;
while(a <= 100) do begin
if (a mod 2 = 0) then
sum:= sum + a;
a:= a + 1;
end;
writeln('Сумма четных чисел = ', sum);
end.
3 программа:
var a, i, N:integer;
begin
writeln('Введите N');
readln(N);
a:=1;
for i:=1 to N do begin
write(a*a, ' ');
a:= a + 1;
end;
end.
Для программы а удалите часть, выделенную комментарием "программа б"
Для программы б удалите часть, выделенную комментарием "программа а"
#include <iostream>
#include <iomanip>
#include <ctime>
int main()
{
int i,j, a, k;
int A[7][7];
setlocale(LC_ALL, "Russian"); // Русский язык в консоли
srand(time(0));
for (i = 0; i < 7; i++)
{
for (j = 0; j < 7; j++)
{
A[i][j] = rand() % 100;
std::cout << std::setw(5) << A[i][j];
}
std::cout << std::endl;
}
// Программа a
std::cout << "Введите строку и число через пробел: ";
std::cin >> k >> a;
for (j = 0; j < 7; j++)
if (A[k-1][j] == a)
{
std::cout << "Есть";
break;
}
if (j==7) std::cout << "Нет";
// Программа a
// Программа б
std::cout << "Введите столбец и число через пробел: ";
std::cin >> k >> a;
for (i = 0; i < 7; i++)
if (A[i][k-1] % a == 0)
{
std::cout << "Есть";
break;
}
if (i == 7) std::cout << "Нет";
// Программа б
return 0;
}
