М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
аиуоушв
аиуоушв
12.09.2021 18:06 •  Информатика

Измените программу . 1. радиусы окружностей равны 20. 2. окружности располагаются вдоль левого края окна. 3. радиус окружности вводится пользователем. 4. окружности образуют рамку вокруг окна. 5*. пользователь задает границу окна, вдоль которой будут располагаться окружности (например: 1 — верхняя, 2 — левая, 3 — правая, 4 — нижняя). (паскаль абс ) uses graphabc; var x, y, r: integer; begin r : = 10; x : = 10; y : = 10; while x + 640 do begin circle(x, y, r); x : = x + 20; end; end.

👇
Открыть все ответы
Ответ:
1.
#include <iostream>
using namespace std;  
int intrev(int x)
{
      return x ? cout << x % 10, intrev(x / 10) + 1 : 0;
}  
int main()
{
     int val = 0;
     cin >> val;
     intrev(val);
     system("pause");
     return 0;
}
 
2.
#include <iostream>
using namespace std;
int main()
{
     int val = 230;
     int mul = 1;
     int temp = 1;
     while (val != 0) {
         temp = val % 10;
         if (temp != 0)
             mul *= temp;
         val /= 10;
     }
     cout << "Res = " << mul << endl;
     system("pause");
     return 0;
}
4,7(24 оценок)
Ответ:
lmarusia
lmarusia
12.09.2021
S:string;
a, i, k, b, n:integer;
begin
readln(s);
readln(a);
k:=1;
for i:=1 to length(s) do begin
k:=k*val(s[i], n);
if val(s[i], n)=a then b:=b+1;end;
writeln(k);
if b=0 then writeln('yes')
else writeln('no');
readln;
end.
2
a:array[1..1000] of integer;
begin
k:=1;
for i:=100 to 999
if (((i+1) mod 2))=0) and (((i+2) mod 3)=0) and (((i+3) mod 4)=0) and (((i+4) mod 5)=0) then begin a[k]:=i; k:=k+1; end;
for i:=1 to k do
writeln(a[i]);
readln;
end.

3
s, a:string;
i, k:integer;
begin
readln(s);
readln(a);
for i:=1 to length(s) do
if s[i]=a then s[i]:='';
writeln(s);
readln;
end.
4,4(65 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ