Var x,y: real;
begin
readln(x);
if x<0 then y:=2*sqr(x)-12*x else
if x>0 then y:=sqr(cos(x));
writeln(y);
end.
{В данном случае не имеет смысла возиться с числами, куда лучше подходят строки}
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
begin
readln(s);
c:=s[length(s)-1]+s[length(s)];
delete(s,length(s)-1,2);
writeln(s,' руб. ',c,' коп.');
end.
Пример ввода:
8705553535
Пример вывода:
87055535 руб. 35 коп.
Решение на паскале:
var
a: string;
b, c: byte;
begin
b := 0;
c := 0;
for c := 1 to 30 do
begin
readln(a);
if a = 'Петя' then b := b + 1;
end;
write(b);
end.
1.Смотря на назначение модели. Какие-то должны отражать размер, другие - форму, третьи - функции и т.д. В общем то, что нужно человеку в определённой ситуации
2.Глобус - это модель Земли ,упрощенное подобие реального Земного шара
3.Обьект может быть моделью, если является упрощенным подобием обьекта оригинала. Модель может быть внешней похожей на оригинал , а может быть не похожей.
4.Модель - это объект, представленный в виде информации, описывающей существенные для данного рассмотрения параметры и переменные величины объекта
Моделирование в информатике – это очень важный этап, так как он преследует массу целей. Сейчас предлагаем с ними познакомиться.
В первую очередь моделирование помогает познать окружающий нас мир. Испокон веков люди накапливали полученные знания и передавали их своим потомкам. Таким образом появилась модель нашей планеты (глобус).
Потому что антивирус может быть закончился или это не такие большие вирусы вред компьютеру не причинят )))