3 года назад

Написать процедуру, которая печатает 60раз указанный символ, каждый с новой строки. Pascal abc.net

1 ответ:

Rommm [6]3 года назад

0 0

<u>// PascalABC.NET 3.2, сборка 1447 от 22.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>

procedure Print60(c:char);
begin
Write(60*(c+NewLine))
end;

// Тестовый вызов
begin
Print60(ReadlnChar)
end.

Читайте также

Как раставить 5 стульев по 2 вдоль каждой стены

мирася

Три стула по углам, и 2 у стенок

0 0

4 года назад

Прочитать ещё 2 ответа

Какое меню необходимо использовать для запуска редактора формул в тексто-вом редакторе? A) View B) Format C) Edit D) Insert

Екатерина01

1) А

Правильнее будет

0 0

4 года назад

В зависимости от введённого символа L, S, V программа должна вычислять длину окружности; площадь круга; объём цилиндра. Составит

Валерий1995911 [7]

  var a:string;
begin
  write('введите букву');
  readln(a);
  case a of
'L':write('L=2*pi*r'); // формула длинны окружности
'S':write('S=pi*r*r); // формула площади круга
'V':write('V'=pi*r*r*h); // формула объёма цилиндра
else write(''буква должна быть L, S или V);
  end;
end.
если формула гдето неверная то сори

0 0

4 года назад

Программирование на Java. Дано целое число n. Вывести следующее за ним четное число.

Ахмед Курбаши [451]

Import java.util.Scanner;
public class MyClass {
    public static void main(String args[]) {
        Scanner in = new Scanner(System.in);
        int n = in.nextInt();
        if ((n+1) % 2 == 0)
            System.out.println(n+1);
        else
            System.out.println(n+2);
    }
}

0 0

3 года назад

"Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не

ДмитриЛед

#include <iostream>
using namespace std;
string IsLeapYear(int Year)
{return(((!(Year % 4) && (Year % 100)) || (!(Year % 400))) ? "yes" : "no");}
int main()
{
int a;
cin>>a;
cout<<IsLeapYear(a)<<endl;
return 0;
}

0 0

4 года назад