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

Число n вводят с клавиатуры.напечатать n раз число 5. числа n и kвводят с клавиатуры.напечатать n раз число k. числа n и k вводят с клавиатуры.напечатать n раз число k, а затем k раз число n. вывести числа от 1 до 20 в строку через пробел. вывести числа от 11 до 40 в строку через пробел. вывести квадраты чисел от 1 до 10 в столбик. мне решить на языке паскаль нужно

👇
Ответ:
Dindonn
Dindonn
04.10.2020
Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй.
var
i:integer;
begin
writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20');
readln
end.

Вывести квадраты чисел от 1 до 10
var   
i: integer;
begin    
for i:=1 to 10 do      
writeln(i:4,'   ',sqr(i):4);    
readln
end.

Число n вводят с клавиатуры.Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие)
var
i,n:integer;
begin
writeln('Введите кол-во повторов числа: ');
readln(n);
for i:=1 to n do
writeln('5');
readln
end.
4,6(9 оценок)
Открыть все ответы
Ответ:
DzhabbarovaS
DzhabbarovaS
04.10.2020
//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.
4,7(12 оценок)
Ответ:
maxkostin29rus
maxkostin29rus
04.10.2020

Відповідь:

#include<iostream>

class Money{

public:

Money(){

 register unsigned int amount;

 std::cout<<"Введите количество рублей: \n";

 std::cin>>amount;

 if(amount%10!=0){

  std::cout<<"\nЯ не могу разбить эту сумму!";

 }

 else{

  std::cout<<"Я могу разбить эту сумму на минимальную, которая состоит из "<<amount/100+amount%100/50+amount%50/10<<" купюр:\n---"

           <<amount/100<<" купюр достоинством в 100 рублей\n---"<<

           amount%100/50<<" купюр достоинством в 50 рублей\n---"<<

           amount%50/10<<" купюр достоиством в 10 рублей";

 }

}

};

int main(){

setlocale(0,"");

Money money;

return 0;

}

4,7(67 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ