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

Уличный продавец газет получает "a" рублей с продажи каждой из первых 50 газет. с продажи каждой из последующих газет он получает на 20% больше. вычислите дневной заработок продавца, "k" газет в день. зафиксируйте свои действия на каждом из этапов решения . 1-ый этап: "исходные данные" 2-ой этап: "соотношения, связывающие исходные данные и результат 3-ий этап: "блок-схема" 4-ый этап: "программа на языке паскаль"

👇
Ответ:
karinakazakova5
karinakazakova5
29.05.2020
Java

import java.util.*;
import java.lang.*;

class {
public static void main(String[] args){
double a;
int k;

Scanner sc = new Scanner(System.in);

System.out.print("Enter a: ");
a = sc.nextInt();

System.out.print("Enter k: ");
k = sc.nextInt();

int mon = 0;
int check = 0;

while(check < k){
if(check >= 50){
a /= 100;
a *= 120;
mon += a;
}
else{
mon += a;
};
};

System.out.print("Money: " + mon);

}
}
4,6(34 оценок)
Открыть все ответы
Ответ:
Фёкла11
Фёкла11
29.05.2020
USES CRT,Graph;VAR Device,Mode:Integer;    i,x,y,s:Integer;BEGINCLRSCR;       Device:=0;       InitGraph(Device,Mode,'');       s:=100;       x:=320;       y:=240;       for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s-10;               SetColor(White);           end;            for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s+10;               SetColor(White);           end;          Circle(x,y,s);Readln;END.
4,8(40 оценок)
Ответ:
maks200206
maks200206
29.05.2020
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
function AutoMorph(n:integer):boolean;
begin
  var s1:=n.ToString;
  Result:=(s1=(n*n).ToString.Right(s1.Length))
end;

begin
  var a,b:integer;
  Write('Введите а и b: '); Read(a,b);
  for var i:=a to b do
    if AutoMorph(i) then Print(i)
end.

Тестовое решение:
Введите а и b: 1 10000
1 5 6 25 76 376 625 9376

Попробовал переписать функцию в более примитивный вид. По-моему, она не стала проще, только удлинилась...

function AutoMorph(n:integer):boolean;
begin
  var s1:=IntToStr(n); // n переводим в строковое представление
  var s2:=IntToStr(n*n); // n*n переводим в строковое представление
  var l1:=Length(s1); // длина строки s1
  s2:=RightStr(s2,l1); // правые l1 символов из s2
  Result:=(s1=s2)
end;
4,4(8 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ