Жазылған сөз (әдеби туындылар, шығарма з (әдеби туындылар, шығарма, құжат және т.с.с. н үзінділері мен бөліктері) деп аталады (орыс тілін- Яғни олардың үзінділері мен бе дегі мағынасы 4 - бұл мағынасы бойынша өзара бір-бірімен байланыст немесе сөздер реті (орыс тіліндегі мағынасы) сі немесе бірнеше сөйлемдерден құралған жазба сөзінін бөлігі ... деп аталады (орыс тіліндегі мағынасы). Тігінен: 2. - уақыт пен кеңістікте ақпараттарды жіберуге арналған және арнайы жазылған ақпараттар енген материалдық объект (орыс тіліндегі мағынасы). 5. ... – бұл мақала мен түсініктемелерді жазуда қолданылатын негізгі мәтіннен тыс ақпарат көздеріне сілтеме (орыс тіліндегі мағынасы). 7. Тілдің негізгі құрылымдық бірліктерінің бірі ... деп аталады
Ответы
1) Program NoName;
Var i,m : integer;
Begin
read(m);
if m>31 then begin
for i:=31 to m do
if (i mod 16) = 0 then writeln(i);
end;
end.
2)Program NoName;
Var i,n,x,c : integer;
Begin
c:=1;
x:=0;
i:=0;
while i<5 do begin
if (c mod 13) = 0 then
begin x:=x+c; i:=i+1;
end;
c:=c+1;
end;
write(x);
end.
3)Program NoName;
Var i,n,x,c : integer;
Begin
read(n);
c:=1;x:=1;i:=0;
while i<n do
begin
if (c mod 11) = 0 then
begin x:=x*c;
i:=i+1;
end;
c:=c+1;
end;
write(x);
end.
4)Program NoName;
Var i,m,x : integer;
Begin
x:=0;i:=1;
while x<7 do begin
if (i mod 7) = 0 then
begin
writeln(i);x:=x+1;
end;i:=i+1;
end;
end.
Var i,m : integer;
Begin
read(m);
if m>31 then begin
for i:=31 to m do
if (i mod 16) = 0 then writeln(i);
end;
end.
2)Program NoName;
Var i,n,x,c : integer;
Begin
c:=1;
x:=0;
i:=0;
while i<5 do begin
if (c mod 13) = 0 then
begin x:=x+c; i:=i+1;
end;
c:=c+1;
end;
write(x);
end.
3)Program NoName;
Var i,n,x,c : integer;
Begin
read(n);
c:=1;x:=1;i:=0;
while i<n do
begin
if (c mod 11) = 0 then
begin x:=x*c;
i:=i+1;
end;
c:=c+1;
end;
write(x);
end.
4)Program NoName;
Var i,m,x : integer;
Begin
x:=0;i:=1;
while x<7 do begin
if (i mod 7) = 0 then
begin
writeln(i);x:=x+1;
end;i:=i+1;
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Укажите какое програмное обеспечение людям в следуюших ситуациях
Автор: MikhailNechaeva
Нарисовать дом в Python IDLE
Автор: centrprof20
Что объединяет всемирная паутина?
Автор: sergeevna
#include <iostream>
#include <cmath>
using namespace std;
int main() {
ios::sync_with_stdio(0);
cin.tie(0);
double b, res = 0;
cin >> b;
for (int i = 1; i <= b; i++)
{
res += 1/(pow(i,2));
}
cout<<res;
}
Как по мне - это идеальное решение, но жаль на C++)
Не забывай, что на этом сайте можно не только под Pascal прогать))
Если тебе нужно отправить файл этой проги в тестирующую систему, но у тебя нет C++, то можешь в комментарии написать свой vk, скину тебе cpp файл с кодом, а ты его в тестирующую систему пошлёшь)