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

1) даны два числа.если они оба четные, то найдите сумму чисел, иначе разность. 2) даны два числа. если сумма чисел больше 1, то найдите целую часть от деления, иначе остаток от деления. с понятным решением..

👇
Ответ:
АртёмV2
АртёмV2
04.10.2020

1)

var
a,b:integer;
begin
readln (a,b);
if (a mod 2 =0) and (b mod 2=0) then writeln (a+b);
if (a mod 2<>0) and (b mod 2<>0) then writeln (a-b);
end.

 

2)

var
a,b:integer;
begin
readln (a,b);
if (a+b>1) then writeln (a mod b)
else
writeln (a div 10);
end.

 

4,4(20 оценок)
Открыть все ответы
Ответ:
Polino4444444ka
Polino4444444ka
04.10.2020

#include <iostream>

#include <cstdlib>

#include <math.h>

#include <time.h>

using namespace std;

int main()

{

system("chcp 1251 > null");

srand(time(0));

int n = 50; // Количество покупок

int z = 0; // Цена мороженого

int sum = 0;

cout << "Цены на мороженое на сегодня: \n";

for(int i = 0; i<n; i++){

   z = rand()%181+20;

   cout << "\n" << z << " рублей/гривен";

   sum = sum + z;

}

cout << "\n\nСума за день: " << sum;

}

оценить мои старания :З

4,6(24 оценок)
Ответ:
asmolova2
asmolova2
04.10.2020

vvar a:array [1..10] of integer;                             //Эту

j,i,l,pr:integer;

begin                      //Для изменения диапозона надо менять 2 переменные. Они должны быть равны.

 i:=10;                                       // Эту

 for j:=1 to i do a[j]:=random(10);

 writeln ('Каким был массив:');

 writeln (a);

 for j:=1 to i-1 do

 begin

   if j mod 2=0 then inc(l) else continue;

   if l mod 2<>0 then begin  pr:=a[j-1]; a[j-1]:=a[j+1]; a[j+1]:=pr end;

 end;

 writeln ('Каким стал:');

 writeln (a);

end.

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