4 года назад

Срочно. Номер 6 и 7. Информатика 9 класс.

Знания

Информатика

1 ответ:

ModaNGermany [4]4 года назад

0 0

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
var (S,M):=ReadInteger2('Введите возвраст Саши и Маши->');
Println(S>M?'Саша старше':'Маша старше');
end.

Пример(1):
Введите возвраст Саши и Маши-> 12 14
Маша старше

Пример(2):
Введите возвраст Саши и Маши-> 18 15
Саша старше

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

Помогите пожалуйста, найти алгоритм нахождения перемитра круга

Ежиков Максим

const pi=3.14;

var

r,l:real;

begin

write('Введите радиус = ');

readln(r);

l:=2*pi*r;

writeln('Длина окружности = ',l);

readln;

end.

0 0

4 года назад

Паскаль. Дан текст. Написать программу, которая подсчитывает количество слов, в тексте учитывая, что между словами может быть по

Кристина090902 [393]

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Вводите:');
Write('Кол-во слов: ',s.ToWords.Count)
end.

Тестовое решение
Вводите: А роза упала на лапу Азора
Кол-во слов: 6

0 0

4 года назад

С клавиатуры вводится произвольное натуральное число. Найти произведение нечётных цифр числа. Помогите срочно прошу !!!!!

Александр262

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n=');
var p:=1;
while n>0 do begin
 var d:=n mod 10;
 if d.IsOdd then p*=d;
 n:=n div 10
 end;
Writeln('Произведение нечетных цифр числа равно ',p)
end.

Пример
n= 53892
Произведение нечетных цифр числа равно 135

0 0

2 года назад

Растровыми графическими редакторами являются: 1)Xara Xtreme 2)Pinta 3)SK 1 4)Corel Painter Essentials 5)Krita

ВладимирВМК [50]

5, если не ошибаюсь)))

0 0

4 года назад

Написать алгоритм и составить программу для вычисления суммы квадратов первых N членов натурального ряда.

29victor29 [7]

Программа получает на вход N, почле чего в цикле постепенно обрабатывает все натуральные числа от 1 до N включительно и в ячейку памяти s откладывает их квадраты.

program summa;

uses crt;

var N,a,s,i: integer;

begin

read(N); a:=0; s:=0;

for i:=1 to N do

begin

a:=a+1;

s:=s+(a*a);

end;

writeln(s);

end.

0 0

4 года назад