Помогите решать задачу пожалуйста

Знания

Информатика

1 ответ:

Tina49 [38]4 года назад

0 0

1 - R V U
2 - везде галочки
3 - везде галочки
4 - R
5 - U
6 - нигде

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

Пожаааалуймтааааа.. 1 и 2 хотя бы

ВладимирСС

55 в первой задаче и 90 во второй

0 0

4 года назад

Составьте программу, которая считает, сколько раз в тексте, заданном с клавиатуры, встречается буква "М" Текст: Мой компьютер с

garon41

Input"введите текст"; a$
For i=1 to len(a$)
if mid$(a$,i,1)="М" then s=s+1
next
print " Количество букв =" s
end

0 0

4 года назад

Напишите программы в Turbo Pascal.

MrGamer

1) Вот первая задачка:

uses crt;
var a, b, c : real;

begin
ClrScr;
Write(' a = '); ReadLn(a);
Write(' b = '); ReadLn(b);
c:=sqrt(a*a+ b*b);
WriteLn(' c = ', C:4:2);
ReadLn;
end.

2) А вот задачка 2

uses crt;
var s, s0 : real;
     i: integer;
begin
ClrScr;
S0:=3;
i:=1;
While S0<20 do
    begin
     i:=i+1;
     S:=S0*(1+0.05);
     S0:=S+S0;
    end;
WriteLn(' Day = ', i);
ReadLn;
end.

3) А вот и третья задачка подоспела....

uses Crt;
const n=15;
type Mas = array [1..n] of real;
var A: Mas;
     i: integer;
     Sum: real;
begin
ClrScr;

Sum:=0;
for i:=1 to n do
begin
      Write(' A[',i, '] = ' ) ; ReadLn (A[i]);
      Sum:=Sum+A[i];
end;

WriteLn (' Massiv: ');
for i:=1 to n do
      Write (A[i]:6:2,'    ');

WriteLn; WriteLn;
WriteLn ('Sum = ', Sum:6:2);

ReadLn;
end.

0 0

1 год назад

Найдите значение при выполнении программы S:=1; For z:=1 to 8 do a[z]:=sqr(z); for k:=1 to 8 do if a[k]>9 then a[k]:=2; for z

Елена42 [14]

1)S=1*2*2*2*2*2=32

2) с

3)f

0 0

3 года назад

дан фрагмент программы на языке паскаль for n:=1 to 3 do for m:=1 to 3 do b[n,m]:=n*m; s:=0; for n:=1 to 3 do for m:=1 to 3 do

ladari [3]

Количество пар i, j в котором i или j четное

0 0

4 года назад