profile
Опубликовано 6 лет назад по предмету Информатика от bysenkimer

Помогите с Паскалем

  1. Ответ
    Ответ дан ristaltvgames

    sqrt(sqr(x-3)=sqr(5-3)=sqr(2)=4)=2/sqrt(y)=2/sqrt(0.16)=2/0,4=5

  2. Ответ
    Ответ дан AnkaPulemetcica

    1)

    2) 5

    3) Var s:string;

    i,k:integer;

    Begin

    write('Введите строку: ');readln(s);

    k:=0;

    For i:=1 to Length(s) do

    if s[i]='.' then

    Begin

    inc(k);

    s[i]:='!';

    End;

    if k<>0 then writeln('Полученная строка: ',s)

    else writeln('Точек нет');

    readln;

    End.


Самые новые вопросы